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ABSTRACT 


This  thesis  describes  the  integration  of  an  Apple  II 
plus  computer  into  an  existing  sun  tracking  system.   The 
Apple  Computer  replaced  an  Intel  80/10A  single  board  com- 
puter as  the  system  controller.   Software  development  and 
hardwiring  were  necessary  to  successfully  integrate  the 
new  computer  into  the  system.   With  the  new  computer  installed, 
user  interaction  with  the  tracking  system  became  possible. 
Additionally  it  was  possible  to  replace  hard  to  interpret 
assembly  language  code  with  higher  level  Basic  code  as  the 
system  controlling  software. 
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I.   INTRODUCTION 

As  the  finite  conventional  energy  sources  of  the  world 
are  depleted,  and  their  costs  increase,  alternative  energy 
sources  are  becoming  more  and  more  attractive.   Although  in 
many  instances  these  alternative  sources  cannot  compete 
economically  with  gas,  oil,  and  other  conventional  sources, 
it  is  just  a  matter  of  time  until  alternative  and  conven- 
tional sources  will  be  competitive.   Already  many  homes 
have  solar  collectors  and  other  devices  designed  to  decrease 
the  consumption  of  gas,  oil,  and  electricity.   Prototype 
solar  power  plants  are  appearing  in  various  parts  of  the 
world,  and  geothermally  produced  power  is  now  a  viable  option 
in  areas  where  this  natural  resource  is  available.   In  short, 
our  energy  sources  are  shifting,  and  by  necessity  will 
continue  to  shift,  from  the  non-renewable  to  the  renewable. 

Of  the  renewable  energy  sources  available,  solar  energy 
is  by  far  the  most  abundant.   On  the  average,  1.7  x 10E14 
kilowatts  of  solar  power  continually  reach  the  Earth.   If 
all  of  this  power  could  be  captured  and  used,  it  would  amount 
to  approximately  50  00  times  the  rate  at  which  power  is  cur- 
rently consumed  by  the  entire  Earth's  population  [Ref.  1]  . 
It  should  be  clear  that  the  development  of  techniques  for 
the  conversion  of  this  resource  into  usable  forms  of  energy 
is  essential  to  our  future  as  an  industrial  nation. 


One  method  that  is  available  for  converting  solar  energy 
into  a  usable  form  involves  the  use  of  solar  thermal  collec- 
tors.  This  type  of  collector  captures  the  sun's  radiated 
energy  and  transfers  the  resultant  thermal  energy  to  a 
fluid,  which  in  turn  transfers  its  thermal  energy  to  the 
user,  or  places  it  in  a  storage  facility  [Ref.  1]. 

Solar  collectors  can  be  divided  into  broad  categories: 
the  nonconcentrating  flat  plate  collectors,  and  the  concen- 
trating collectors.   Flat  plate  collectors  are  for  the  most 
part  stationary,  and  do  not  concentrate  the  energy  received 
by  them.   In  the  northern  hemisphere  flat  plate  collectors 
are  normally  set  facing  south,  and  are  tilted  back  to  an 
angle  equal  to  the  local  latitude  plus  10  degrees  as  shown 
in  Figure  1.   In  this  position  the  flat  plate  collector  is 
able  to  efficiently  convert  radiated  energy  into  thermal 
energy  for  a  large  range  of  incidence  angles.   Point  concen- 
trating collectors  on  the  other  hand  require  an  incidence 
angle  close  to  zero  to  effectively  focus  the  captured  radiated 
energy  onto  a  small  area,  or  a  receiver  vessel.   This  means 
that,  in  order  to  maintain  a  usable  incidence  angle,  either 
the  reflector  or  its  associated  receiver  must  move  in 
response  to  the  sun's  changing  celestial  position.   The  greater 
the  concentration  factor  of  the  particular  collector,  the 
more  critical  the  incidence  angle  of  the  sun's  rays  becomes. 

The  decision  to  use  one  collector  type  over  another 
depends  to  a  large  extent  upon  its  intended  use.   For  low 
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Figure  1.   A  Flat  Plate  Collector  and  the  Sun's 
Track  for  a  Typical  One  Day  Period 


temperature  applications  the  fixed  plate  collector  would 
normally  be  the  correct  choice,  but  for  higher  temperature 
applications  the  concentrating  collector  should  be  used. 
Power  plant  applications,  for  example,  use  concentrating 
collectors  to  produce  the  high  temperatures  necessary  to 
generate  turbogenerator  drive  steam.   Household  hot  water 
and  swimming  pool  heating  systems,  on  the  other  hand,  would 
use  flat  plate  collectors  for  both  economical  and  practical 
reasons . 

As  mentioned,  a  point  concentrating  collector's  effi- 
ciency is  a  direct  function  of  how  accurately  the  collector 
can  be  pointed  directly  at  the  sun.   A  point  focusing  type 
collector  is  usually  a  mirror  surfaced  parabolic  reflector. 
This  reflector  captures  the  solar  radiation  that  strikes 
it,  and  reflects  the  energy  to  a  point  called  the  focus. 
A  receiver  is  placed  at  the  focus  and  is  heated  to  very 
high  temperatures  by  the  concentrated  solar  energy.   Liquid 
in  the  receiver  absorbs  the  heat  and  can  be  used  to  perform 
work,  Figure  2A.   If  the  reflector  is  not  pointed  directly 
at  the  sun,  the  incidence  angle  is  not  zero  and  the  focus 
shifts  from  the  receiver,  as  in  Figure  2B. 

The  mechanism  that  keeps  the  point  concentrating  collector 
pointed  at  the  sun  is  the  main  topic  of  this  research.   An 
Apple  II  plus  micro  computer  is  used  to  control  a  Dual  Axis 
Sun  Tracking  system.   The  system  used  already  existed,  but 
was  controlled  by  an  Intel  80/10A  Single  Board  Computer  [Ref .  2] 
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(a)   Incidence  Angle  0 


(b)   Incidence  Angle  20 


Figure  2.   A  Point  Concentrating  Collector 
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Additionally  the  controlling  software  was  written  in  assembly 
language,  and  downloaded  onto  EPROM'S.   The  80/10 A  was 
replaced  by  an  Apple  II  plus  computer  to  (1)  allow  for 
user  interaction  with  the  sun  tracking  system  and  (2)  to 
have  the  controlling  software  written  in  the  easier  to 
understand  Basic  programming  language. 
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II.   SYSTEM  DESIGN 

A.   SYSTEM  COMPONENT  DESCRIPTION 

The  solar  tracking  system  consists  of  three  main  com- 
ponents.  The  first  is  a  mechanism  known  as  a  Dual  Axis 
Solar  Tracking  Device.   This  device  consists  of  two  stepping 
motors  for  horizontal  and  vertical  drive  power,  four  photo 
diode  sensors  used  for  sun  location  and  tracking,  and  four 
limit  switches  that  ensure  the  tracker  drive  axis  are  limited 
in  the  amount  they  can  rotate,  thus  preventing  system  wrap 
around,  and  providing  start  position  information.   Figures  3 
and  4  show  front  and  side  views  of  the  solar  tracking  com- 
ponent.  Figure  3  shows  the  location  of  the  two  stepping 
drive  motors,  and  the  layout  of  the  photo  diode  sensors 
(ES ,WS, US ,DS) .   As  shown  the  horizontal  and  vertical  stepping 
motors  drive  the  sensor  platform  and  sensor  arm  through  a 
series  of  gears.   The  horizontal  motor  causes  the  platform 
to.  rotate  through  a  maximum  180  degree  arc  in  either  direc- 
tion, while  the  vertical  motor  causes  the  sensor  arm  to  move 
through  a  maximum  9  0  degree  arc  between  the  up  and  down 
positions.   Figure  4  shows  the  sensor  arm,  the  limit  switches 
(EL,WL,UL, DL) ,  and  the  signals  into  and  out  of  the  tracker. 
The  signals  consist  of  four  electrical  current  values  that 
are  proportional  to  the  intensity  of  the  light  falling  on 
each  sensor,  four  ON  (+5V)  or  OFF  (-5V)  signals  from  the 
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Figure  3.   Dual  Axis  Sun  Tracker  (Front  View) 
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Figure  4.   Dual  Axis  Sun  Tracker  (Side  View) 
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limit  switches,  and  drive  signals  from  the  controlling 
computer  to  the  stepping  drive  motors. 

The  next  component  of  the  system  is  called  the  Amplifi- 
cation/Isolation box,  hereafter  called  the  A/I  box.   This 
box  contains  the  circuitry  necessary  to  interface  the 
controlling  computer  to  the  sun  tracker.   Motor  drive  commands 
arriving  from  the  computer  are  amplified  and  sent  on  to  the 
drive  motors,  and  sensor  signals  are  amplified  before  being 
sent  to  the  computer.   Also  associated  with  the  amplifica- 
tion circuitry  are  isolation  circuits  to  protect  the  computer 
from  short  circuits  and  power  surges.   The  limit  switch 
signals  also  go  through  the  A/I  box  on  their  way  to  the 
computer,  but  are  not  altered  in  the  process. 

The  third  main  component  is  the  Apple  II  plus  computer. 
This  component  with  its  associated  software  takes  in  the 
sensor  data  and  provides  the  proper  drive  motor  control 
signals  to  locate  and  track  the  sun.   Limit  switch  values  are 
also  checked  to  determine  if  the  tracker  has  reached  the 
limit  of  a  particular  drive  direction.   As  mentioned  the 
Apple  replaced  the  Intel  computer  so  that  the  system  would 
be  user  interactive,  and  the  software  would  be  easier  to 
interpret  in  the  higher  level  Basic  language.   Figure  5  is 
a  system  block  diagram  which  shows  the  signal  flow  between 
components,  as  well  as  the  internal  flow  of  the  computer. 
The  analog  to  digital  card  and  controlling  software  within 
the  computer  will  be  discussed  in  detail  later. 
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B.   SYSTEM  STRUCTURE 

While  some  system  operation  and  hardware  descriptions 
were  available  in  [Ref.  2],  they  were  insufficient  to  provide 
the  detailed  system  knowledge  necessary  to  integrate  a  new 
computer  into  the  system.   It  was  therefore  necessary  to 
begin  the  integration  process  by  performing  a  thorough 
system  trace  out. 

The  A/I  box  was  the  initial  and  main  focus  of  this 
trace  out  since  all  system  signals  enter  and  exit  this 
component.   First,  all  wires  entering  and  leaving  the  box 
were  traced.   Figure  6  and  Table  1  describe  the  results  of 
this  effort.   Jacks  one  through  three  and  single  wire 
connections  A  through  V  are  illustrated  with  their  associated 
inputs  and  outputs,  these  inputs  and  outputs  are  further 
described  in  Table  1.   It  should  be  noted  that  the  micro- 
processor referenced  in  the  signal  descriptions  is  the 
original  Intel  80/10A  and  not  the  Apple.   These  signals  are 
provided  since  the  Intel  hook  up  was  left  intact  so  it  can 
still  be  used  if  desired.  .  The  Apple  is  connected  inside 
the  A/I  box  via  a  bus  bar.   Once  the  input  and  output  con- 
nections were  determined,  the  A/I  boxes  internal  electronics 
could  be  traced.   Figure  7  and  Table  2  show  the  layout  of 
the  circuit  board  inside  the  A/I  box,  and  describe  the 
signals  entering  and  leaving  it.   Note  that  the  four  LM74  7 
OPAMP  chips  are  all  connected  up  identically,  but  only  the 
east  sensor  (ES)  hook  up  is  drawn  to  avoid  cluttering  the 
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TABLE  1 
SIGNAL  DESCRIPTION  FOR  TOP  OF  AMPLIFICATION/ ISOLATION  BOX 

JACK  Jl 

(1)  EAST  LIMIT  SWITCH  SIGNAL  TO  MICROPROCESSOR 

(2)  DOWN  SENSOR  SIGNAL  TO  MICROPROCESSOR 

(3)  UP  SENSOR  SIGNAL  TO  MICROPROCESSOR 

(4)  WEST  SENSOR  SIGNAL  TO  MICROPROCESSOR 

(5)  EAST  SENSOR  SIGNAL  TO  MICROPROCESSOR 

(6)  GROUND 

(7)  GROUND 

(8)  UP  LIMIT  SWITCH  SIGNAL  TO  MICROPROCESSOR 

(9)  DOWN  LIMIT  SWITCH  SIGNAL  TO  MICROPROCESSOR 

(10)  WEST  LIMIT  SWITCH  SIGNAL  TO  MICROPROCESSOR 

(11)  NOT  USED 

(12)  +15  VOLTS  TO  LM  747  CHIP 

(13)  -15  VOLTS  TO  LM  747  CHIP 

(14)  GROUND 

JACK  J2 

(1)  UP  SENSOR  INPUT  FROM  TRACKER 

(2)  EAST  SENSOR  INPUT  FROM  TRACKER 

(3)  VERTICAL  DRIVE  STEP  ELEMENT  #1  FROM  MICROPROCESSOR 

(4)  VERTICAL  DRIVE  STEP  ELEMENT  #2  FROM  MICROPROCESSOR 

(5)  VERTICAL  DRIVE  STEP  ELEMENT  #3  FROM  MICROPROCESSOR 

(6)  VERTICAL  DRIVE  STEP  ELEMENT  #4  FROM  MICROPROCESSOR 

(7)  GROUND 

(8)  NOT  USED 

(9)  WEST  SENSOR  INPUT  FROM  TRACKER 

(10)  DOWN  SENSOR  INPUT  FROM  TRACKER 

(11)  HORIZONTAL  DRIVE  STEP  ELEMENT  #1  FROM  MICROPROCESSOR 

(12)  HORIZONTAL  DRIVE  STEP  ELEMENT  #2  FROM  MICROPROCESSOR 

(13)  HORIZONTAL  DRIVE  STEP  ELEMENT  #3  FROM  MICROPROCESSOR 

(14)  HORIZONTAL  DRIVE  STEP  ELEMENT  #4  FROM  MICROPROCESSOR 

JACK  J3 

(1)  +6.3  VOLTS  TO  VERTICAL  STEPPING  MOTOR 

(2)  AMPLIFIED  VERTICAL  STEP  ELEMENT  #3  TO  VERTICAL 
STEPPING  MOTOR 

(3)  +6.3  VOLTS  TO  VERTICAL  STEPPING  MOTOR 

(4)  AMPLIFIED  VERTICAL  STEP  ELEMENT  #1  TO  VERTICAL 
STEPPING  MOTOR 
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(5)  AMPLIFIED  VERT 
STEPPING  MOTOR 

(6)  AMPLIFIED  VERT 
STEPPING  MOTOR 

(7)  AMPLIFIED  HORI 
STEPPING  MOTOR 

(8)  +6.3  VOLTS  TO 

(9)  +6.3  VOLTS  TO 

(10)  AMPLIFIED  HORI 
STEPPING  MOTOR 

(11)  AMPLIFIED  HORI 
STEPPING  MOTOR 

(12)  AMPLIFIED  HORI 
STEPPING  MOTOR 

(13)  NOT  USED 

(14)  NOT  USED 


ICAL  STEP  ELEMENT  #2  TO  VERTICAL 

ICAL  STEP  ELEMENT  #4  TO  VERTICAL 

ZONTAL  STEP  ELEMENT  #4  TO  HORIZONTAL 

HORIZONTAL  STEPPING  MOTOR 
HORIZONTAL  STEPPING  MOTOR 
ZONTAL  STEP  ELEMENT  #3  TO  HORIZONTAL 

ZONTAL  STEP  ELEMENT  #2  TO  HORIZONTAL 

ZONTAL  STEP  ELEMENT  #1  TO  HORIZONTAL 


SINGLE  PIN  JACKS 


(A) 

+5  VOLTS 

(B) 

+5  VOLTS  TO  LIMIT  SWITCHES 

(C) 

-15  VOLT  INPUT  WHEN  NOT  USING  INTEL  80/10A 

(D) 

+15  VOLT  INPUT  WHEN  NOT  USING  INTEL  80/10A 

(E) 

EAST  LIMIT 

SWITCH  SIGNAL  FROM  TRACKER 

(F) 

NOT  USED 

(G) 

WEST  LIMIT 

SWITCH  SIGNAL  FROM  TRACKER 

(H) 

NOT  USED 

(I) 

NOT  USED 

(J) 

+6.3  VOLTS 

FROM  EXTERNAL  POWER  SUPPLY 

(K) 

+6.3  VOLTS 

FROM  EXTERNAL  POWER  SUPPLY 

(L) 

GROUND 

(M) 

GROUND 

(N) 

NOT  USED 

(0) 

NOT  USED 

(P) 

UP  LIMIT  SWITCH  SIGNAL  FROM  TRACKER 

(Q) 

NOT  USED 

(R) 

DOWN  LIMIT 

SWITCH  SIGNAL  FROM  TRACKER 

(S) 

NOT  USED 

(T) 

NOT  USED 

(U) 

GROUND 

(V) 

GROUND 
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TABLE  2 

AMPLIFICATION/ ISOLATION  BOX  CIRCUIT  BOARD  SIGNALS 
(LETTERED  PINS  ARE  ON  TOP  OF  CIRCUIT  BOARD) 


<A) 

(1) 

(B) 

(2) 

(C) 

(3) 

<M> 

(11) 

(N) 

(12) 

(P) 

(13) 

(R) 

(14) 

(S) 

(15) 

<T) 

(16) 

(U) 

(17) 

(V) 

(18) 

(W) 

(19) 

(X) 

(20) 

(Y) 

(21) 

(Z) 

(22) 


GROUND 

GROUND 

+6.3  VOLTS  TO  7805  VOLTAGE  REGULATOR  FOR  +5  VOLTS 

REGULATED  SUPPLY  TO  7407  CHIPS 

+15  VOLTS  IN  FOR  LM  747  CHIPS 

-15  VOLTS  IN  FOR  LM  747  CHIPS 

+5   VOLTS  OUT  USED  BY  LIMIT  SWITCHES 

DOWN  SENSOR  AMPLIFIED  SIGNAL  OUTPUT 

DOWN  SENSOR  UNAMPLIFIED  SIGNAL  INPUT  TO  LM  747  CHIP 

UP  SENSOR  AMPLIFIED  SIGNAL  OUTPUT 

UP  SENSOR  UNAMPLIFIED  SIGNAL  INPUT  TO  LM  747  CHIP 

WEST  SENSOR  AMPLIFIED  SIGNAL  OUTPUT 

WEST  SENSOR  UNAMPLIFIED  SIGNAL  INPUT  TO  LM  747  CHIP 

EAST  SENSOR  AMPLIFIED  SIGNAL  OUTPUT 

EAST  SENSOR  UNAMPLIFIED  SIGNAL  INPUT  TO  LM  747  CHIP 

VERTICAL  STEP  ELEMENT  #1  OUTPUT  TO  POWER  TRANSISTOR 

BASE 

VERTICAL  STEP  ELEMENT  #1  INPUT  FROM  MICROPROCESSOR 

VERTICAL  STEP  ELEMENT  #2  OUTPUT  TO  POWER  TRANSISTOR 

BASE 

VERTICAL  STEP  ELEMENT  #2  INPUT  FROM  MICROPROCESSOR 

VERTICAL  STEP  ELEMENT  #3  OUTPUT  TO  POWER  TRANSISTOR 

BASE 

VERTICAL  STEP  ELEMENT  #3  INPUT  FROM  MICROPROCESSOR 

VERTICAL  STEP  ELEMENT  #4  OUTPUT  TO  POWER  TRANSISTOR 

BASE 

VERTICAL  STEP  ELEMENT  #4  INPUT  FROM  MICROPROCESSOR 

HORIZONTAL  STEP  ELEMENT  #4  OUTPUT  TO  POWER  TRANSISTOR 

BASE 

HORIZONTAL  STEP  ELEMENT  #4  INPUT  FROM  MICROPROCESSOR 

HORIZONTAL  STEP  ELEMENT  #3  OUTPUT  TO  POWER  TRANSISTOR 

BASE 

HORIZONTAL  STEP  ELEMENT  #3  INPUT  FROM  MICROPROCESSOR 

HORIZONTAL  STEP  ELEMENT  #2  OUTPUT  TO  POWER  TRANSISTOR 

BASE 

HORIZONTAL  STEP  ELEMENT  #2  INPUT  FROM  MICROPROCESSOR 

HORIZONTAL  STEP  ELEMENT  #1  OUTPUT  TO  POWER  TRANSISTOR 

BASE 

HORIZONTAL  STEP  ELEMENT  #1 


INPUT  FROM  MICROPROCESSOR 
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figure.   Additionally  all  signals  entering  and  leaving  the 
circuit  board  apply  to  either  the  Intel  or  Apple  computers. 
Figure  8  shows  the  remainder  of  the  electronics  inside  the 
A/I  box,  namely  the  eight  power  transistors  used  to  amplify 
the  step  signals  sent  to  the  stepping  motors.   The  step  ele- 
ments Vl  through  V4  and  HI  through  H4  will  be  explained  in 
detail  later.   Figure  9  and  Table  3  are  included  only  for 
completeness  of  system  documentation,  and  to  avoid  future 
duplication  of  effort.   They  represent  the  Intel  80/10A 
wiring  and  signal  description. 

C.   SYSTEM  OPERATION 

Once  the  signal  flow  had  been  determined,  the  actual 
system  operation  was  the  next  focus  of  investigation.   This 
information  was  necessary  because  the  characteristics  of  the 
signals  coming  into,  and  the  type  of  the  signals  going  out 
of  the  new  computer  had  to  be  known. 

There  were  two  areas  of  investigation  during  the  system 
operation  phase.   The  first  was  the  two  driver  stepping 
motors,  and  their  control  circuitry.   A  thorough  understanding 
of  their  operation  was  essential  to  the  later  development 
of  the  software  drive  routines.   As  no  technical  documenta- 
tion was  readily  available  for  the  stepping  motors  that  were 
used,  the  following  data  was  obtained  from  [Ref.  2],  experi- 
mentation, name  plate  data,  and  general  stepping  motor  theory 
[Ref.  3].   The  motors  used  were  Superior  Electric  synchronous 
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TABLE  3 
INTEL  80/10A  SINGLE  BOARD  COMPUTER  CONNECTIONS 


JACK  Jl 

(36)  GROUND 

(41)  HORIZONTAL  STEP  ELEMENT  #1  TO  AMPLIFIER/ ISOLATION  BOX 

(43)  HORIZONTAL  STEP  ELEMENT  #2  TO  AMPLIFIER/ ISOLATION  BOX 

(45)  HORIZONTAL  STEP  ELEMENT  #3  TO  AMPLIFIER/ ISOLATION  BOX 

(47)  HORIZONTAL  STEP  ELEMENT  #4  TO  AMPLIFIER/ ISOLATION  BOX 

(REMAINING  PINS  NOT  USED) 


JACK  J 2 

(44)  GROUND 

(43)  VERTICAL  STEP  ELEMENT  #1  TO  AMPLIFIER/ ISOLATION  BOX 

(45)  VERTICAL  STEP  ELEMENT  #2  TO  AMPLIFIER/ ISOLATION  BOX 
(47)  VERTICAL  STEP  ELEMENT  #3  TO  AMPLIFIER/ ISOLATION  BOX 
(49)  VERTICAL  STEP  ELEMENT  #4  TO  AMPLIFIER/ ISOLATION  BOX 

(REMAINING  PINS  NOT  USED) 


JACK  J3 

(2)  GROUND 

(4)  GROUND 

(6)  -15  VOLTS  TO  AMPLIFIER/ ISOLATION  BOX 

(8)  +15  VOLTS  TO  AMPLIFIER/ ISOLATION  BOX 
(18, 19,21,23,25,27,29,31,33)  GROUND 

(20)  EAST  SENSOR  INPUT  FROM  AMPLIFIER/ ISOLATION  BOX 

(22)  WEST  SENSOR  INPUT  FROM  AMPLIFIER/ ISOLATION  BOX 

(24)  UP  SENSOR  INPUT  FROM  AMPLIFIER/ ISOLATION  BOX 

(26)  DOWN  SENSOR  INPUT  FROM  AMPLIFIER/ ISOLATION  BOX 

(28)  EAST  LIMIT  SWITCH  INPUT  FROM  AMPLIFIER/ ISOLATION  BOX 

(30)  WEST  LIMIT  SWITCH  INPUT  FROM  AMPLIFIER/ ISOLATION  BOX 

(32)  DOWN  LIMIT  SWITCH  INPUT  FROM  AMPLIFIER/ ISOLATION  BOX 
(REMAINING  PINS  NOT  USED) 
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stepping  motors  that  have  a  nominal  DC  voltage  rating  of 
6.9.  Volts  and  a  rated  amperes  per  winding  value  of  1.6  Amps. 
Figure  10  is  a  schematic  representation  of  a  typical  stepping 
motor,  and  its  interface  to  the  system.   In  this  schematic 
the  rotor  is  a  four  pole  permanent  magnet  (large  circle) . 
There  are  eight  stators,  each  of  which  is  an  electromagnet. 
These  stators  are  divided  into  two  groups  of  four.   One  group 
is  controlled  by  power  transistors  1  and  2,  the  other  by  3 
and  4.   Each  stator  is  wound  by  wire  in  two  directions.   For 
the  set  controlled  by  power  transistors  1  and  2  the  polarities 
of  each  stator  depend  on  whether  transistor  1  or  2  is  turned 
on.   The  left  hand  rule  for  electron  current  flow  can  be 
used  to  determine  the  polarity  of  each  sensor.   By  wrapping 
the  fingers  of  the  left  hand  around  the  stator  in  the  direc- 
tion of  current  flow,  the  north  pole  is  determined  to  be  the 
end  of  the  stator  that  the  thumb  points  to.   For  example  if 
transistor  1  is  turned  on,  electron  current  will  flow  from 
the  grounded  terminal  of  the  transistor  to  the  +6.9  Volts  at 
the  top  of  the  diagram.   By  applying  the  left  hand  rule,  a 
S-N-S-N  configuration  is  observed.   If  transistor  2  were 
conducting  a  N-S-N-S  configuration  would  result.   Transistors 
1  and  2  conducting  at  the  same  time  is  not  a  valid  state. 
Transistors  3  and  4  control  the  other  set  of  stators  in  a 
similar  manner.   It  is  by  this  ability  to  alter  the  polarity 
of  these  stator  sets  that  the  stepping  motion  of  the  motors 
is  realized.   An  example  step  command  is  illustrated  in  the 
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figure.   In  this  instance  a  1001  step  is  input  to  a  7407 
noninverting  hex  driver  chip.   A  "1"  represents  a  +5  Volt 
high  signal,  and  a  "0"  represents  a  zero  Volt  low  signal. 
When  a  low  signal  is  applied,  the  driver  can  sink  up  to 
30mA.,  and  the  +5  Volts  at  the  base  of  the  transistor  is 
dropped  across  the  base  resistor  thus  keeping  the  transistor 
turned  off.   When  a  high  signal  is  sensed  the  driver  becomes 
an  open  circuit,  and  the  +5  Volts  is  no  longer  dropped  across 
the  base  resistor.   The  +5  Volts  is  sensed  at  the  base  of  the 
NPN  transistor,  and  it  is  turned  on.   Current  can  now  be 
conducted  through  the  stator  windings  so  that  the  stators 
are  polarized.   With  the  above  description  in  mind,  the  1001 
step  example  can  easily  be  shown  to  produce  the  indicated 
stator  polarizations.   Finally  remembering  that  unlike  poles 
attract,  the  rotor  orientation  is  set  as  shown. 

In  summary  each  step  command  to  the  stepping  motor  has 
four  step  elements,  as  in  the  10  01  example.   The  first  two 
elements  control  one  set  of  four  stators,  and  the  last  two 
steps  the  second  set.   The  polarity  configuration  of  a 
stator  set  is  determined  by  which  of  the  two  controlling  step 
elements  is  high. 

The  above  description  is  for  a  four  pole  rotor  with 
eight  stators.   The  actual  stepping  motor  used  has  four  50 
pole  rotors  stacked  one  above  the  other,  each  offset  slightly 
from  the  one  below  it.   This  offset  in  essence  gives  a  100 
pole  rotor.   There  are  still  only  eight  electromagnetic 
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stators,  but  each  has  five  high  points  on  its  surface.   The 
magnetic  field  is  concentrated  at  the  high  points  giving  the 
appearance  of  five  stators  of  the  same  polarity.   This  large 
number  of  poles  allows  the  step  size  to  be  either  0.9  or 
1.8  degrees,  depending  upon  the  drive  sequence  used  to  step 
the  motor.   These  step  sizes  correspond  to  either  400  or  200 
steps  per  360  degree  revolution.   The  example  that  was  dis- 
cussed in  Figure  10  would  have  produced  22.5  or  45  degree 
steps  for  16  or  8  steps  per  revolution,  again  depending  upon 
the  drive  sequence  used.   The  smaller  steps  of  the  real 
motor  are  clearly  more  useful  in  real  world  applications 
than  the  large  steps  of  the  example. 

As  mentioned  the  step  size  depends  on  the  drive  sequence 
used.   Figure  11  shows  a  four  step  loop.   Notice  that  each 
change  in  stator  polarization  produces  a  45  degree  movement 
of  the  rotor.   The  loop  is  repeated  over  and  over  to  drive 
the  stepping  motor  the  desired  number  of  steps.   In  this  case 
the  loop  must  be  repeated  twice  per  360  degree  revolution. 
It  should  be  noted  that  step  one  produced  a  45  degree  movement 
of  the  rotor  to  place  it  in  the  first  position,  so  that  four 
steps  produce  a  180  degree  transition.   The  small  numbers  1 
and  2  on  the  first  step,  mark  the  starting  positions  of  the 
first  and  second  stator  sets.   The  stators  are  laid  out  in 
the  same  manner  as  those  in  Figure  10 .   Again  the  first  two 
elements  of  each  step  control  stator  set  one,  and  the  last 
two  stator  set  two.   Figure  12  is  a  typical  eight  step  loop. 
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In  this  case  each  step  moves  the  rotor  22.5  degrees.   The 
smaller  steps  are  realized  by  inserting  four  extra  steps 
between  the  original  four.   In  each  of  the  extra  steps  one 
of  the  stator  sets  is  left  off  by  not  turning  on  either  of 
its  associated  transistors.   The  rotor  aligns  itself  as 
illustrated,  on  the  energized  stator  set.   It  is  these  same 
4  and  8  step  loops  that  produce  the  0.9  and  1.8  degree  steps 
of  the  real  drive  motors.   The  only  difference  is  that  the 
loop  must  be  repeated  many  more  times  per  motor  revolution. 
With  the  above  information,  drive  routines  for  the  new 
computer  could  now  be  developed. 

The  second  of  the  two  main  areas  of  investigation  was 
the  sensor  circuitry.   As  mentioned  the  sensors  are  photo- 
diodes  that  generate  a  current  proportional  to  the  intensity 
of  the  light  falling  on  them.   Figure  13  shows  sensor  output 
signal  amplification  circuitry  for  the  east  sensor.   The 
letters  A  through  F  correspond  to  the  letters  at  the  top  of 
the  A/I  box  circuit  board  shown  in  Figure  7,  so  that  this 
figure  can  be  tied  to  the  actual  hardware.   The  circuit 
operates  as  follows.   The  first  op  amp  provides  a  voltage 
output  proportional  to  the  current  input  from  the  energized 
photodiode .   This  voltage  is  then  further  amplified  by  the 
second  op  amp,  to  provide  a  signal  that  is  usable  by  the 
computer.   This  output  varies  from  near  zero  volts  when  the 
sensor  is  in  a  shadow,  to  near  2.5  volts  in  the  bright 
sunlight. 
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D.   COMPUTER  INTEGRATION 

With  the  preliminary  research  complete,  the  problem  of 
integrating  the  new  computer  into  the  system  could  be  taken 
up.   The  Apple  II  Plus  computer  is  equipped  with  several 
internal  card  slots,  so  that  integrated  circuit  cards  which 
perform  many  different  functions  can  be  added  to  the  computer 
After  some  difficulty  in  choosing  a  card  to  use  for  inter- 
facing the  computer  to  the  system,  an  analog  to  digital/ 
digital  to  analog  card  (A/D  card)  was  chosen  [Ref.  4].   This 
card  has  16  channels  of  analog  input  and  16  channels  of 
analog  output.   Each  of  the  32  channels  has  an  address  and 
can  be  accessed  by  software  commands.   Eight  of  the  digital 
to  analog  output  channels  (4  per  motor)  were  used  to  deliver 
the  drive  step  commands  to  the  stepper  motors.   Additionally 
eight  of  the  analog  to  digital  input  channels  were  used  to 
input  the  4  sensor  and  the  4  limit  switch  signals.   Figure  14 
shows  the  A/D  card  and  the  jacks  coming  from  it.   These  jacks 
are  connected  to  two  similar  jacks  coming  from  the  A/I  box. 
Table  4  describes  the  signals  on  the  jacks,  lists  the 
A/D  card  channel  associated  with  each  pin  (whether  used  or 
not) ,  and  gives  the  color  of  the  wire  associated  with  each 
signal  for  ease  of  identification.   With  the  hardware  inter- 
facing completed  the  development  of  the  controlling  software 
could" begin. 
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TABLE  4 

LISTING  OF  THE  A/D  CARD  JACK  CONNECTIONS 
(WIRE  COLOR  GIVEN  AT  END  OF  SIGNAL  DESCRIPTION) 
(NOTE  CARD  CHANNEL  GIVEN  BELOW  SIGNAL  DESCRIPTION) 


JACK  #1 

(1)  NOT  USED 
CHANNEL  15 

(2)  NOT  USED 
CHANNEL  14 

(3)  NOT  USED 
CHANNEL  13 

(4)  NOT  USED 
CHANNEL  12 

(5)  NOT  USED 
CHANNEL  11 

(6)  NOT  USED 
CHANNEL  10 

(7)  NOT  USED 
CHANNEL  9 

(8)  VERTICAL  STEP  ELEMENT  #4  TO  AMP/ ISOLATION  BOX  (YELLOW) 
CHANNEL  8 

(9)  VERTICAL  STEP  ELEMENT  #3  TO  A/ I  BOX  (GREEN) 
CHANNEL  7 

<10)  VERTICAL  STEP  ELEMENT  #2  TO  A/ I  BOX  (RED) 
CHANNEL  6 

(11)  VERTICAL  STEP  ELEMENT  #1  TO  A/ I  BOX  (BLUE) 
CHANNEL  5 

(12)  HORIZONTAL  STEP  ELEMENT  #4  TO  A/ I  BOX  (YELLOW) 
CHANNEL  4 

(13)  HORIZONTAL  STEP  ELEMENT  #3  TO  A/ I  BOX  (GREEN) 
CHANNEL  3 

(14-21)  COMMON  GROUNDS,  GROUND  WIRE  FROM  A/ I  BOX  IN  14 
(BLACK) 

(22)  NOT  USED 

(23)  NOT  USED 
CHANNEL  O 

(24)  HORIZONTAL  STEP  ELEMENT  #1  TO  A/ I  BOX  (BLUE) 
CHANNEL  1 

(25)  HORIZONTAL  STEP  ELEMENT  #2  TO  A/ I  BOX  (RED) 
CHANNEL  2 
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JACK  #2 

<1)   NOT  USED 

CHANNEL  15 

(2)  NOT  USED 
CHANNEL  14 

(3)  NOT  USED 
CHANNEL  13 

(4)  NOT  USED 
CHANNEL  12 

(5)  NOT  USED 
CHANNEL  11 

(6)  NOT  USED 
CHANNEL  10 

(7)  NOT  USED 
CHANNEL  9 

(8)  DOWN  LIMIT  SWITCH  INPUT  FROM  A/I  BOX  (YELLOW) 
CHANNEL  8 

(9)  UP  LIMIT  SWITCH  INPUT  FROM  A/ I  BOX  (GREEN) 
CHANNEL  7 

(10)  WEST  LIMIT  SWITCH  INPUT  FROM  A/I  BOX  (RED) 
CHANNEL  6 

(11)  EAST  LIMIT  SWITCH  INPUT  FROM  A/I  BOX  (BLUE) 
CHANNEL  5 

(12)  DOWN  SENSOR  INPUT  FROM  A/ I  BOX  (YELLOW) 
CHANNEL  4 

(13)  UP  SENSOR  INPUT  FROM  A/ I  BOX  (GREEN) 
CHANNEL  3 

(14-21)  COMMON  GROUNDS,  GROUND  WIRE  FROM  A/ I  BOX  IN  20 
(BLACK) 

(22)  NOT  USED 

(23)  NOT  USED 
CHANNEL  0 

(24)  EAST  SENSOR  INPUT  FROM  A/ I  BOX  (BLUE) 
CHANNEL  1 

(25)  WEST  SENSOR  INPUT  FROM  A/ I  BOX  (RED) 
CHANNEL  2 
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III.   SOFTWARE  DESIGN 

A.  INITIAL  PLANNING 

The  controlling  software  for  the  system  was  developed 
in  three  distinct  phases.   The  first  phase  was  the  design 
of  the  driver  routines  for  the  system  stepping  motors.   The 
second  phase  was  the  development  of  the  sensor  and  limit 
switch  inputs.   The  third  phase  was  to  combine  the  first  two 
phases  into  a  program  that  would  control  the  system  in  the 
desired  manner.   The  program  developed  in  the  last  phase  had 
to  be  capable  of  obtaining  the  input  data  from  the  4  photo- 
diode  sensors,  analyzing  it,  and  causing  the  appropriate 
drive  motor  to  turn  in  the  proper  direction.   The  program 
must  also  ensure  that  none  of  the  limit  switches  had  been 
depressed,  and  react  accordingly  if  one  had  been. 

B .  DRIVE  ROUTINE  DESIGN 

As  was  mentioned  previously,  the  Apple  computer  has 
several  internal  slots  available  for  the  installation  of 
various  cards.   Since  each  drive  step  consists  of  4  bits  of 
information,  a  parallel  I/O  card  was  initially  chosen  to 
output  the  step  information  to  the  drive  motors.   Specifically 
an  A488  Communication  Interface  card  was  chosen  [Ref.  5]. 
This  card  is  designed  for  communication  between  the  Apple 
and  digitally  controlled  peripherals.   The  card  has  8  bi- 
directional data  lines,  and  8  control  lines.   The  data  sent 
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and  received  by  the  card  is  by  means  of  the  ASCII  character 
set.   The  control  lines  of  the  card  are  used  for  interdevice 
synchronization  and  data  transmission  setup  commands. 
Attempts  were  made  to  utilize  this  card  by  having  it  output 
the  ASCII  character  whose  last  four  bits  corresponded  to  the 
desired  drive  step.   Figure  15  is  an  example  of  a  program 
developed  for  an  8  step  drive  routine.   Lines  70  through 
170  are  setup  commands  required  by  the  card,  and  180  through 
370  are  the  dirve  loop.   All  attempts  to  make  this  card  work 
failed  due  to  the  lack  of  handshaking  and  control  signals 
coming  from  the  seeker  system. 

The  A/D  card  mentioned  in  the  last  section  was  also  in 
the  computer,  and  was  to  be  used  for  the  conversion  of  the 
analog  input  signals  into  a  digital  form  usable  by  the  com- 
puter.  The  fact  that  the  A/D  card  also  had  16  output  chan- 
nels lead  to  the  idea  that  these  channels  could  be  used  to 
produce  the  necessary  drive  steps.   It  was  concluded  that 
if  the  4  elements  comprising  the  step  arrived  at  the  stepping 
motor  in  rapid  serial  succession  rather  than  at  the  same 
instant  in  parallel  form,  the  stepping  motor  would  still 
perform  satisfactorily.   This  would  allow  for  the  use  of  only 
one  card  for  the  complete  system  interface,  rather  than  the 
two  required  if  the  A4  88  were  used. 

The  value  of  a  particular  A/D  card  output  channel  is 
set  by  sending  a  number  from  0  to  255  to  the  channel  address. 
The  following  are  some  of  the  output  voltage  values  corres- 
ponding to  various  numbers  sent  to  the  channel. 
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***  PROGRAM  TO  DRIVE  SEEKER  WITH     *** 
***     A488  PARALLEL  I/O  CARD        *** 


10 

SL7. 

=  5 

20 

DT* 

=  "SUN: 01" 

30 

RS* 

__   II  II 

40 

FS* 

II  IS 

50 

CI* 

__   II  II 

60 

PA'/. 

=  1 

70 

X  = 

256  *  SL7. 

80 

IC  = 

■  49152  +  X 

90 

SN  = 

=   IC  +   16 

100 

FI  = 

=   IC  +   32 

110 

PA  = 

=  IC  +  96 

120 

SO  = 

:  IC  +  192 

130 

SR  = 

:  49295  +  SL7.  *  . 

L6 

140 

PE  = 

«  1144  +  SL7.:DU  = 

=  1272  +  SL7. 

150 

EOS 

=  1912  +  SL7. 

160 

CALL  FI: 

170 

CALL 

.  ic: 

180 

FOR 

T  =  1  TO  16: RS* 

=  RS*  +  "■":  NEXT 

190 

FOR 

A  =  1  TO  100 

200 

CI* 

=  "S,SUN" :FS*  = 

"  J  " : 

CALL 

SN: 

210 

PA7. 

=  100:  CALL  PA: 

220 

CI* 

=  "S,SUN" :FS*  = 

"H": 

CALL 

sn: 

230 

PA7. 

=  100:  CALL  PA: 

240 

CI* 

=  "S,SUN":FS*  = 

"  I " : 

CALL 

sn: 

250 

PA7. 

=  100:  CALL  PA: 

260 
270 

CI* 
PA7. 

=  "S,SUN" :FS*  = 
=  100:  CALL  PA: 

"A": 

CALL 

SN: 

280 

CI* 

=  "S,SUN":FS*  = 

urn  . 

CALL 

SN: 

290 

PA7. 

=  ioo:  call  pa: 

300 

CI* 

=  "S,SUN":FS*  = 

"D": 

CALL 

sn:  • 

310 

PA7. 

=  ioo:  call  pa: 

320 

CI* 

=  "S,SUN":FS*  = 

ill   II  a 

CALL 

sn: 

330 

PA7. 

=  100:  CALL  PA  * 

340 

CI* 

=  "SjSUN'^FS*  = 

"B" : 

CALL 

sn: 

360 

PA7. 

=  100:  CALL  PA: 

370 

NEXT  A 

380 

END 

Figure  15.   A4  88  Drive  Routine 
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NUMBER  OUTPUT 

0  -5.0  Volts 

64  -2.5 

128  0.0 

192  +2.5 

255  +5.0 

From  the  table  is  can  be  seen  that  the  card  can  output 
from  -5  to  +5  volts  in  .0  39  Volt  increments.   The  values  128 
and  255  were  chosen  to  represent  the  0  and  the  1  values  for 
each  step  element.   Analog  output  channels  1-4  were  used  for 
the  4  horizontal  drive  step  elements,  and  5-8  for  the  verti- 
cal step  elements  (see  Table  4) .   To  define  a  particular 
output  from  a  channel,  the  base  channel  address  must  first 
be  computed.   To  do  this  the  equation  M  =  49,2  80  +  (slot 
number*16)  is  used.   Here  the  49,280  is  the  starting  address 
of  all  slot  dependent  locations  in  the  computer,  and  the 
slot  number  is  an  integer  from  1  to  7 ,  depending  upon  the 
slot  that  the  card  was  installed  in.   Next  a  channel  number 
from  0  to  15  must  be  added  to  the  base  address  M  in  order 
to  address  a  particular  channel  on  the  card.   Note  that  the 
A/D  card  must  be  installed  in  slot  number  four  if  the  sun 
seeker  program  is  to  work  properly.   Once  the  A/D  card 
channel  address  (M+  CHANNEL  ADDRESS)  has  been  calculated,  the 
POKE  command  can  be  used  to  input  any  value  to  the  channel 
within  the  allowable  range.   POKE  is  a  BASIC  command  which 
has  the  form  POKE (memory  address) , (desired  value) .   Figure 


43 


16  is  an  early  drive  routine  using  the  POKE  command.   The 
slot  number  that  the  card  is  installed  in  is  given  in  line 
10,  lines  20-45  assign  step  element  values  to  an  array,  and 
lines  50-120  are  three  nested  Do  Loops.   The  inner  most  Do 
Loop  I,  calculates  the  memory  base  value  M,  and  POKES  the 
values  of  the  indicated  array  element  into  the  proper  card 
channel  (M+I) .   So  the  basic  memory  value  M  is  incremented 
by  adding  the  Do  Loop  values  I  (1-4)  to  it,  thus  four  channel 
addresses  are  calculated.   These  addresses  correspond  to  the 
A/D  card  channels  used  to  output  the  4  element  drive  step. 
These  addresses  together  with  the  desired  output  voltage 
values  are  placed  in  POKE  commands  to  form  the  step.   The 
next  Do  Loop  in  Figure  16  (the  H  loop) ,  generates  a  four  step 
loop  like  that  of  Figure  11.   Finally  the  G  loop  causes  the 
4  step  drive  loop  to  be  repeated  60  times. 

When  this  routine  was  run  it  suddenly  became  clear  that 
great  programming  efficiency  would  be  necessary  if  any  kind 
of  acceptable  system  response  times  were  to  be  achieved.   To 
make  a  transition  of  only  90  degrees  with  this  drive  routine, 
25  seconds  were  required.   In  other  words  to  move  the  tracker 
from  an  east  to  a  west  facing  position,  it  would  take  close 
to  one  minute.   Figure  17  is  the  same  drive  routine  as  that 
of  Figure  16,  except  that  the  M  calculation  was  taken  out  of 
the  Do  Loop, and  calculated  only  once  at  the  beginning  of  the 
program.   This  simple  change  reduced  the  9  0  degree  transition 
time  to  12  seconds,  for  a  savings  of  13  seconds.   While  this 
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***  FIRST  DRIVE  ROUTINE  USING  A/D  *** 
***  CARD.  MEMORY  CALCULATION  IN  LOOP*** 
***  REQUIRED  25  SEC.  FOR  90  DEG  *** 
***  TRANSITION.  *** 


10 

SL  =  4 

20 

DIM  D(16) 

30 

D(l)  = 

255: 

D(2)  = 

128: 

D(3)  = 

255: 

D(4)  = 

128 

35 

D(5)  = 

255: 

D<6)  = 

128: 

D(7)  = 

128: 

D(8)  = 

255 

40 

D(9)  = 

128: 

D(10)  = 

=  255: 

D(ll)  = 

=  128: 

D(12)  = 

=  255 

45 

D(13)  • 

=  128: 

D(14)  ■ 

=  255: 

D<15)  = 

=  255: 

D<16>  = 

=  128 

50 

FOR  G  = 

=  1  TO 

60 

60 

FOR  H  - 

=  1  TO 

4 

70 

FOR  I  = 

=  1  TO 

4 

75 

M  =  49280  + 

(SL  *  16) 

80 

POKE  M 

+  I,D<I  +  (4  * 

90 

NEXT 

110 

NEXT 

120 

NEXT 

(H  -  1))  ) 


Figure  16.   25  Second  Drive  Routine 
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***      SECOND  DRIVE  ROUTINE.  *** 

***      BY  MOVING  MEMORY  CALC.  *** 

***  OUTSIDE  LOOP,  REDUCED  TRANSIT  *** 

***  TIME  TO  12.4  SEC  FOR  A  90  DEB  *** 

***  TRANSITION.  *** 


10 

SL  =  4 

15 

M  =  49! 

280  + 

(SL 

20 

DIM  D(16) 

30 

D<1)  = 

255: 

D(2)  = 

128: 

D(3)  = 

255: 

D(4)  = 

128 

35 

D(5)  = 

255: 

D<6)  = 

128: 

D<7)  = 

128: 

D(8)  = 

255 

40 

D(9)  = 

128: 

D(10)  i 

=  255: 

D(U)  > 

=  128: 

D(12)  ■■ 

=  255 

45 

D(13)  i 

=  128: 

D<14)  i 

=  255: 

D(15)  i 

=  255: 

D<16)  ■ 

=  128 

50 

FOR  G  = 

=  1  TO 

60 

60 

FOR  H  > 

=  1  TO 

4 

70 

FOR  I  i 

=  1  TO 

4 

80 

POKE  M 

+  I,D(I 

90 

NEXT 

110 

NEXT 

120 

NEXT 

16) 


+  (4  *  (H  -  1)  )  ) 


Figure  17.   12  Second  Drive  Routine 
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change  cut  the  time  in  half,  still  more  time  would  have  to 
be  cut  because  in  actual  use  the  drive  routine  would  have 
logic  placed  between  the  steps,  further  slowing  it  down. 

Figure  18  shows  the  third  drive  routine  developed.   To 
increase  execution  speed  the  step  elements  were  taken  out  of 
an  array,  and  placed  directly  into  the  poke  commands.   The 
A/D  card  channel  addresses  for  the  4  channels  used  per  step 
are  calculated  at  the  beginning  of  the  program  before 
entering  the  drive  loop,  and  are  also  placed  directly  into 
the  poke  commands.   Variable  names  vice  constant  values  were 
used  in  the  poke  commands  to  further  increase  speed.   This 
is  because  it  takes  much  more  time  to  convert  a  constant  to 
its  floating  point  representation  than  it  does  to  fetch  the 
value  of  a  variable  [Ref .  6] .   Due  to  the  above  modifications 
the  90  degree  transition  time  was  reduced  to  4 . 8  seconds. 
Figure  19  is  the  same  type  drive  routine  as  that  of  Figure 
18  except  that  a  four  step  drive  loop  is  used.   As  would  be 
expected  the  transit  time  was  cut  in  half  to  2.6  seconds  due 
to  the  larger  step  size,  however  the  operation  of  the  drive 
motor  became  unstable.   At  this  speed  the  time  to  serially 
deliver  the  four  elements  comprising  a  step  approaches  the 
time  between  steps  of  5  msec.   It  is  therefore  possible  for 
the  inertia  of  the  larger  .steps  (1.9  vs.  0.8  degrees) ,  to 
carry  the  rotor  past  the  next  intended  position  before  the 
new  step  is  set  up.   The  drive  motor  would  operate  normally 
for  a  time  and  then  suddenly  begin  to  oscillate  about  some 
position . 

47 


***   THIRD  DRIVE  DESIGN  USING  A/D  *** 

***  CARD.  HERE  EACH  DRIVE  STEP  HAS  *** 

***   MEMORY  ADDRESS  ASSIGNED  VICE  *** 

***  ACCESSING  AN  ARRAY  AS  IN  FIRST  *** 

***  TWO  DESIGNS.  TRANSIT  TIME  FOR  *** 

**-*  90  DEG  TRANSITION  WAS  REDUCED  *** 

***  TO  4.8  SEC.  *** 


80 

EN  = 

60 

90 

DE  = 

1 

100 

SL  = 

4 

120 

ML  = 

49280  + 

(SL  *  16) 

140 

DIM  M(4) 

160 

Ml  = 

ML  +  1 

180 

M2  = 

ML  +  2 

200 

M3  = 

ML  +  3 

220 

M4  = 

ML  +  4 

240 

HI  = 

255 

260 

LO  - 

128 

2000 

FOR  HI  =  1  TO 

EN 

2100 

POKE 

Ml, Hi: 

POKE 

M2,L0: 

POKE 

M3,HI: 

POKE 

M4,L0 

2200 

POKE 

Ml, Hi: 

POKE 

M2,L0: 

POKE 

M3,L0: 

POKE 

M4,L0 

2300 

POKE 

Ml, Hi: 

POKE 

M2,L0: 

POKE 

M3,L0: 

POKE 

M4,HI 

2400 

POKE 

Ml,LO: 

POKE 

M2,L0: 

POKE 

M3,L0: 

POKE 

M4,HI 

2500 

POKE 

Ml,LO: 

2700  POKE 

POKE 

M2,HI: 

POKE 

POKE 

M3,L0: 

POKE 

POKE 

M4,HI 

POKE 

2600 

POKE 

M1,L0: 

2800  POKE 

POKE 

M2,Hl: 

POKE 

POKE 

M3,L0: 

POKE 

POKE 

M4,L0 

POKE 

mi,lo: 

M2,HI: 

M3,HI: 

M4,L0 

M1,L0: 

M2,L0: 

M3,L0: 

M4,HI 


Figure  1: 


4.8  Second  Eight  Step  Drive  Loop 
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***    THIS  DRIVE  DESIGN  USES  ONLY  *** 

***  FOUR  DRIVE  STEPS  PER  LOOP.  THE  *** 

***  TRANSITION  TIME  FOR  THIS  DESIGN  *** 

***   WAS  ONLY  2.6  SEC,  HOWEVER  THE  *** 

***   DRIVE  MOTOR  OPERATION  BECAME  *** 

***  UNRELIABLE.  **•-* 


80 

EN  = 

60 

90 

DE  = 

1 

100 

SL  = 

4 

120 

ML  = 

49280  +  (SL 

140 

DIM  M(4) 

160 

Ml  = 

ML  +  1 

180 

M2  = 

ML  +  2 

200 

M3  = 

ML  +  3 

220 

M4  = 

ML  +  4 

240 

HI  = 

255 

260 

LO  = 

128 

2000 

FOR  HI  =  1  TO  EN 

2100 

POKE 

Ml,LO: 

POKE 

M2,HI: 

POKE 

M3,HI: 

POKE 

M4,L0 

2200 

POKE 

M1,L0: 

POKE 

M2,HI: 

POKE 

M3,L0: 

POKE 

M4,HI 

2300 

POKE 

Ml, HI: 

POKE 

M2,L0: 

POKE 

M3,L0: 

POKE 

M4,HI 

2400 

POKE 

Ml, Hi: 

POKE 

M2,L0: 

POKE 

M3,Hl: 

POKE 

M4,L0 

2900 

NEXT 

16) 


Figure  19.   2.6  Second  Four  Step  Drive  Loop 
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Figure  20  is  a  drive  routine  developed  to  take  advantage 
of  the  fact  that  only  one  of  the  four  step  elements  changes 
from  one  step  to  the  next  in  an  eight  step  loop.   Only  the 
step  element  that  changed  was  sent  to  the  drive  motor. 
This  routine  also  proved  to  be  highly  unstable  and  was 
discarded. 

The  eight  step  loop  of  Figure  18  was  finally  chosen 
for  use  in  the  main  sun  tracking  program  because  of  its 
speed,  stability,  and  smoother  operation.   The  four  step 
loop  even  when  stabilized  by  adding  delays  between  the 
steps  still  produced  a  jerky  drive  motion,  while  the  smaller 
0 . 8  degree  steps  of  the  eight  step  loop  caused  the  motion  to 
smooth  out. 

C.   DESIGN  OF  THE  SIGNAL  INPUT  ROUTINES 

To  control  the  system  the  Apple  computer  must  be  capable 
of  taking  in  the  sensor  and  limit  switch  signals  as  well 
as  driving  the  motors.   To  do  this  the  PEEK  command  in 
conjunction  with  the  A/D  card  is  used.   The  analog  voltage 
values  of  the  signals  are  delivered  directly  to  eight  channels 
of  the  A/D  card. 

The  card  then  changes  the  analog  values  into  their 
digital  equivalents  for  use  by  the  computer.   The  range  of 
digital  voltage  input  values  is  the  same  as  the  output  value 
range  discussed  earlier  (0-255  digital  for  -5V  to  +5V  analog) . 
The  PEEK  command  is  of  the  form  VARIABLE  NAME  =  PEEK  (A/D 
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***  IN  THIS  DRIVE  DESIGN  AN  *** 
***  ATTEMPT  WAS  MADE  TO  TAKE  *** 
***  ADVANTAGE  OF  THE  FACT  THAT  *** 
***  ONLY  ONE  OF  FOUR  LEVELS  CHANGE*** 
***  PER  STEP.  SO  ONLY  THE  CHANGING*** 
***  ELEMENT  IS  POKED  EACH  STEP.  *** 
***  THIS  DESIGN  PROVED  TO  BE  *** 
***  COMPLETELY  UNSTABLE  AS  A  DRIVE*** 
***  ROUTINE.  *** 


390  FOR  K  =  1  TO  30 

400  POKE  49344,255 

405  POKE  49345,128 

410  POKE  49346,255 

415  POKE  49347, 128 

420  POKE  49346, 128 

425  POKE  49347,255 

430  POKE  49344,128 

435  POKE  49345,255 

440  POKE  49347,128 

445  POKE  49346,255 

450  POKE  49345, 128 

460  NEXT  K 


Figure  20.   Drive  Routine  Varying  Single  Step  Element 
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CARD  CHANNEL  ADDRESS) .   The  digital  value  found  at  the  indi- 
cated address  is  assigned  to  the  variable.   With  this  par- 
ticular A/D  card  the  PEEK  command  must  be  given  twice  in 
order  to  get  the  correct  value.   The  first  time  the  command 
is  issued  the  old  value  stored  in  the  channel  is  returned, 
the  second  time  the  new  sampled  value  is  delivered.   Figure 
21  is  a  routine  designed  to  input  sensor  and  limit  switch 
values,  and  display  them  on  the  system  monitor. 

In  this  routine  the  base  address  M  is  calculated  in  line 
110  and  incremented  by  the  Do  Loop  counter  I  to  get  the 
eight  input  channel  addresses  of  the  A/D  card.   These  are  the 
same  addresses  as  the  eight  used  for  outputting  the  drive 
steps.   The  command  used  (PEEK  or  POKE)  determines  whether 
the  particular  address  is  used  for  input  or  output.   The 
input  output  wiring  to  and  from  the  A/D  card  is  physically 
separate  (see  Figure  14),  it  is  only  on  the  internal  computer 
bus  that  the  the  same  lines  are  used  for  input  and  output. 
The  table  below  is  included  for  a  quick  reference  to  the  A/D 
card  channel  use. 

CARD  ADDRESS      CHANNEL      INPUT      DRIVE  STEP 

ELEMENT 

USING  SLOT  4      NUMBER       USE 


49345 
49346 
49347 


01 

ES 

HI 

02 

ws 

H2 

03 

us 

H3 
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***  THIS  ROUTINE  WAS  THE  FIRST  *** 
***  ATTEMPT  TO  UTILIZE  THE  INPUT  *** 
***  SIDE  OF  THE  A/D  CARD.  ALL  *** 
***  SENSOR  AND  LIMIT  SWITCH  VALUES*** 
***  ARE  OBTAINED  BY  USING  THE  DO  *** 
***  LOOP.  THE  VALUES  ARE  THEN  *** 
***  OUTPUT  TO  THE  SCREEN.  THIS  *** 
***  ROUTINE  WAS  LATER  USED  TO  *** 
***  OBTAIN  SENSOR  THRESHOLD  VALUES*** 
***  FOR  USE  IN  THE  MAIN  PROGRAM  *** 
***  DESIGN.  *** 


100   DIM  X(8) 

110   M  =  49280  +  (4  *  16) 

115   HOME 

120   FOR  I  =  1  TO  8 

130   FOR  J  =  1  TO  2 

140   X(I)  =   PEEK  (M  +  I) 

150   NEXT  J 

160   NEXT  I 

200   VTAB  21:  PRINT   TAB (  6>"US="X<3>" 

UL="X(7) 
210   VTAB  22:  PRINT   TAB (  3) "WS^1  X (2) " 

ES="X(D"  WL="X(6)"  EL="X(5) 
220   VTAB  23:  PRINT   TAB <  6) "DS="X (4) " 

DL="X (8) 
400   FOR  A  =  1  TO  100:  NEXT 
410   GOTO  120 


Figure  21.   Display  Routine 
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04 

DS 

H4 

05 

EL 

VI 

06 

WL 

V2 

07 

UL 

V3 

08 

DL 

V4 

49348 
49349 
49350 
49351 
49352 

The  J  Do  Loop  executes  the  PEEK  command  twice  for  each 
of  the  eight  channels  determined  by  the  I  loop,  and  assigns 
the  proper  value  to  the  array  variable  X(I) .   Lines  200-220 
provide  the  screen  output,  and  line  400  is  a  0.1  second  delay 
loop  added  for  display  clarity. 

D.   DETERMINATION  OF  SENSOR  VALUES 

The  next  step  in  the  design  of  the  software  was  to 
use  the  display  routine  to  determine  the  proper  sensor  thres- 
hold values  for  use  in  the  sun  tracking  routine.   With  the 
routine  running  the  sensors  were  exposed  to  a  variety  of 
conditions,  and  the  values  below  were  determined. 


CONDITION 


VALUE 
ANALOG     DIGITAL 


Completely  Dark 

Exposed  to  Desk  Lamp 

Facing  Away  From  Sun  on  Bright  Day 

Directly  at  Bright  Sun 

4  Sensors  Balanced  'on  Bright  Sun 

4  Sensors  Balanced  on  Hazy  Sun 


0  V 

0.08  V 

0.12  V 

2.34  V 

0.47  V 

0.16  V 


4  Sensors  Balanced  on  Cloud  Covered  Sun   0.08  V 


128 
130 
131 
188 
140 
132 
130 
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From  the  above  information  it  was  determined  that  a 
cutoff  value  to  use  for  determining  if  the  sun  were  out  or 
not  would  be  130  or  less.   Limit  switch  values  were  deter- 
mined to  be  128  =  0V  if  not  depressed,  and  255  =  +5V  if 
depressed. 

E.   FLASHLIGHT  FOLLOW  ROUTINE 

Once  the  drive  and  display  routines  had  been  developed 
and  expected  sensor  values  had  been  determined,  the  next 
step  was  to  combine  them  into  a  working  routine.   The 
flashlight  follow  routine  (Appendix  A) ,  was  developed  as  an 
intermediate  step  before  attacking  the  more  complex  sun 
tracking  routine.   In  this  routine  the  sensors  are  checked 
continuously  to  see  if  any  go  above  the  threshold  value  of 
130.   If  any  do  then  the  appropriate  drive  loop  is  run. 
There  are  four  eight  step  drive  loops,  one  for  each  direction 
of  travel  (UP , DOWN, EAST, WEST) .   It  should  be  pointed  out 
that  by  running  the  loop  in  the  reverse  direction  the  motor 
will  also  run  in  the  opposite  direction.   Table  5  lists  the 
eight  step  loops  for  each  direction  of  travel . 

At  the  beginning  of  each  drive  loop  the  four  A/D  card 
channels  to  poke  the  steps  to  are  determined  by  adding  the 
appropriate  channel  value  to  the  base  address.   For  instance 
Ll  =  M+5  assigns  the  address  of  channel  5  to  the  variable  Ll , 
so  that  L1-L4  have  the  addresses  of  channels  5-8.   The  L5 
and  L6  variables  are  assigned  the  channel  addresses  of  the 
limit  switch  that  the  system  is  being  driven  toward,  and  the 
sensor  that  is  involved  respectively.   Next  the  limit  switch 
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TABLE  5 
EIGHT  STEP  DRIVE  LOOPS 


HORIZONTAL  MOTOR 
A/D  CARD  CHANNELS  1-4 
EAST      WEST 


STEP 

l: 

1010 

0010 

STEP 

2: 

1000 

0110 

STEP 

3: 

1001 

0100 

STEP 

4: 

0001 

0101 

STEP 

5: 

0101 

0OO1 

STEP 

6: 

0100 

1001 

STEP 

7: 

0110 

1000 

STEP 

8: 

0010 

1010 

VERTICAL  MOTOR 
A/D  CARD  CHANNELS  5-8 
UP       DOWN 


0010 

1010 

0110 

1000 

0100 

1001 

0101 

0001 

0001 

0101 

1001 

0100 

1000 

0110 

1010 

0010 
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and  sensor  values  are  checked  to  be  sure  that  both  are  still 
within  limits.   If  not  the  loop  is  exited,  and  the  program 
returns  to  the  original  sensor  checking  loop.   If  both  values 
are  still  within  limits  the  first  two  steps  of  the  drive 
loop  are  sent  to  the  appropriate  drive  motor.   The  limit 
switch  and  sensor  are  again  checked,  and  either  the  loop  is 
exited  or  two  more  steps  are  taken.   This  checking  and 
stepping  continues  until  the  sensor  goes  below  threshold 
(the  flashlight  is  removed) ,  or  the  system  runs  into  the 
stops  (the  limit  switch) .   Each  of  the  four  drive  loops 
works  the  same,  the  only  difference  is  the  address  values 
assigned  to  L1-L6. 

Now  that  all  the  drive  loop,  sensor  inputs,  and  limit 
switches  had  been  successfully  combined,  the  next  step 
was  to  develop  the  sun  tracking  routine. 

F.   SUN  TRACKING  PROGRAM 

The  final  step  in  the  design  of  the  controlling  software 
was  to  develop  the  actual  sun  tracking  program  (Appendix 
B) .   Since  the  program  listing  is  well  remarked,  only  the 
main  points  of  this  program  will  be  discussed.   The  program 
consists  of  four  main  parts.   The  first  is  a  tracker  cali- 
bration routine,  the  second  is  a  sun  location  routine,  the 
third  is  a  sun  tracking  routine,  and  the  fourth  is  a  cloud 
cover  waiting  routine. 

The  calibration  routine  is  included  because  the  tabs 
that  depress  the  various  limit  switches  have  a  tendency  to 
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become  misaligned.   This  is  important  because  degrees  longi- 
tude, and  degrees  elevat-ion  are  displayed  on  the  screen. 
If  the  system  is  no  longer  limited  to  true  east  and  true 
west  or  horizontal  and  vertical,  these  output  values  will 
be  incorrect.   When  the  tracker  is  calibrated  properly  it 
is  limited  to  a  transition  of  180  degrees  between  the  east 
and  west  limit  switches,  and  9  0  degrees  between  the  up  and 
down  switches.   Due  to  the  gearing  between  the  motors  and 
drive  structures  of  the  tracker,  approximately  1005  steps 
are  required  for  the  east  to  west,  and  510  for  the  up  down 
transitions.   This  routine  starts  the  tracker  in  an  upright 
east  facing  position,  counts  the  steps  required  to  transition 
to  the  west  facing  and  down  positions,  and  then  returns  to 
the  east  facing  upright  start  position.   The  step  count 
values  are  checked  and  if  they  are  outside  predetermined 
limits,  an  appropriate  message  is  displayed  on  the  screen. 
The  step  count  values  obtained  are  also  divided  by  the 
number  of  degrees  in  their  particular  transition  to  get  a 
steps  per  degree  value  that  will  be  used  for  degrees  longi- 
tude and  elevation  calculations  in  later  routines. 

It  should  be  noticed  that  two  vice  four  drive  loops  are 
used  for  the  different  drive  requirements  in  the  sun  track- 
ing program.   As  can  be  seen  in  Table  5  the  east  and  down 
drive  loops  are  the  same,  as  are  the  west  and  up  loops. 
Only. the  channel  numbers  of  the  step  output  lines  are 
different.   If  the  step  and  sensor/limit  switch  channel 
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addresses  are  determined  in  controlling  logic  external  to 
the  drive  loops,  and  are  assigned  to  common  variables,  a 
single  drive  loop  can  be  used  for  two  directions  (EAST/DOWN 
or  WEST/UP) . 

The  sun  location  routine  is  used  to  obtain  a  rough  lock 
on  before  passing  control  to  the  sun  tracking  routine. 
Starting  from  the  east  facing  upright  position,  the  system 
is  moved  toward  the  west.   The  up  sensor  values  are  checked 
and  if  they  remain  the  same  or  increase  the  sensor  is  going 
toward  the  sun.   When  the  values  begin  to  decrease  a  counter 
is  set  and  if  the  old  sensor  reading  is  less  than  the  new 
value  three  times  in  a  row,  the  tracker  moves  back  to  the 
position  of  the  first  decrease.   If  the  readings  are  the 
same  the  counter  stays  the  same,  if  the  new  reading  is 
more  than  the  last  the  counter  is  reset.   These  counters  are 
necessary  because  the  sensor  values  tend  to  vary  by  ±1  quite 
often.   If  there  are  three  successive  decreases  then  random 
value  fluctuations  can  be  ruled  out. 

When  the  tracker  has  moved  back  to  the  point  of  maximum 
sun  intensity  (the  first  sensor  value  decrease)  ,  it  begins 
an  upward  transition.   During  this  transition  the  up  and  down 
values  are  continually  checked.   When  their  values  are  the 
same  the  sun's  intensity  is  equal  on  both  sensors,  thus  the 
tracker  is  locked  onto  the  sun's  elevation.   Control  is  now 
passed  to  the  sun  tracking  routine.   If  lock-on  is  not 
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achieved  in  either  the  horizontal  or  the  vertical  transitions, 
an  appropriate  message  is  printed  on  the  screen. 

The  tracking  routine's  main  function  is  to  ensure  that 
the  UP/DOWN  sensor  values  are  the  same,  and  that  the  EAST/ 
WEST  sensors  are  also  balanced.   The  four  values  do  not 
necessarily  have  to  be  the  same,  only  each  pair  must  balance. 
When  this  is  achieved  then  the  tracker  is  locked  onto  the 
sun.   When  one  sensor  of  a  pair  is  not  equal  to-  the  other 
a  counter  is  set,  if  the  sensors  remain  unbalanced  for  a 
count  of  five,  two  drive  steps  are  taken  in  the  direction 
necessary  to  rebalance  the  sensor  pair.   Again  the  counter 
is  necessary  due  to  the  sensor  outputs  tendency  to  vary  about 
a  value  by  ±1.   If  clouds  cover  the  sun,  its  intensity 
becomes  too  low  for  the  sensors  to  track,  and  control  is 
passed  to  the  cloud  cover  routine. 

The  cloud  cover  routine  continually  checks  the  up  sensor 
to  determine  if  it  goes  back  above  the  threshold  value 
(clouds  no  longer  cover  the  sun) .   If  it  does,  control 
is  returned  to  the  tracking  routine.   If  the  value  remains 
below  threshold  a  counter  is  incremented  once  each  second. 
At  10  minutes  or  a  counter  value  of  60  0,  control  is  passed 
back  to  the  sun  location  routine,  which  places  the  tracker 
back  in  startup  position  and  waits  for  the  sun  to  reappear. 
The  10  minute  limit  is  necessary  because  after  prolonged 
cloud  cover,  the  sun  will  move  out  of  position  and  relocation 
will  be  necessary. 
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As  mentioned  the  program  listing  (Appendix  B) ,  is  well 
remarked  and  can  be  traced  through  for  program  specifics. 
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IV.   CONCLUSIONS  AND  RECOMMENDATIONS 

Once  completed  the  system  performed  well  with  the  new 
computer.   The  screen/keyboard  interaction  now  available 
expands  the  possible  system  uses.   Some  possible  system 
enhancements  can  be  made. 

A  clock  card  could'  be  added  to  the  Apple  that  would 
bring  a  real  time  capability  to  the  system.   By  being  able 
to  determine  the  date  and  time,  a  series  of  calculations 
could  be  performed  that  would  give  the  sun's  location. 
Reference  1  in  its  chapter  on  "Terrestrial  Solar  Radiation," 
describes  the  procedure  in  some  detail.   Once  latitude  and 
elevation  values  had  been  calculated  for  the  sun,  the  tracker 
could  be  placed  in  that  position  and  control  passed  to  the 
sun  tracking  routine.   This  would  do  away  with  the  need  for 
the  sun  location  routine,  and  make  the  initial  lock-on  much 
faster.   Another  use  would  be  in  the  cloud  cover  routine 
where  the  tracker's  position  could  be  updated  by  the  same 
calculations.   Since  the  tracker's  position  could  now  be 
automatically  updated,  the  system  would  not  have  to  return 
to  the  start  up  position  after  the  10  minute  time  out. 

Another  enhancement  would  be  to  assemble  the  drive 
routines  in  order  to  increase  drive  speed.   The  assembled 
code  would  be  internal  to  the  system  thus  preserving  the 
easier  to  interpret  Basic  code  for  user  understanding.   The 
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steps  could  be  delivered  to  the  motors  much  more  rapidly 
than  in  the  Basic  form,  thus  preventing  the  instability 
problem  encountered  earlier  with  the  four  step  drive  loop. 

Another  idea  would  be  to  use  the  tracker  as  a  position- 
ing device  for  a  larger  tracking  system.   The  longitude  and 
elevation  position  information  that  is  now  displayed  on  the 
screen  could  also  be  sent  to  a  much  larger  device,  thus 
eliminating  the  need  for  sensors  on  that  device.   Drive  motor 
commands  could  also  be  sent  to  power  amplification  devices 
that  would  drive  the  larger  positioning  motors. 

A  card  could  be  developed  and  built  to  be  placed  inside 
the  Apple  computer  that  would  replace  the  circuit  board 
currently  inside  the  A/I  box.   This  would  reduce  the  need 
for  much  of  the  current  external  wiring,  as  the  signals  would 
interface  the  computer  via  the  internal  bus.   With  the 
circuit  board  out  of  the  A/I  box  the  power  transistors  could 
be  relocated  into  a  much  smaller  box  which  would  be  mounted 
under  the  tracker.   This  would  produce  a  much  more  compact 
system. 

One  last  recommendation  is  to  develop  a  power  supply  to 
deliver  all  the  necessary  voltages  to  the  system.   This  would 
do  away  with  the  current  requirement  for  three  separate 
external  power  supplies. 
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APPENDIX    A 
FLASHLIGHT    FOLLOW    ROUTINE 


10 

REM 

"MAIN    ROUTINE" 

20 

REM 

30 

REM 

"FLASHLIGHT    FOLLOW" 

40 

REM 

"ROUTINE" 

50 

REM 

60 

REM 

"SET    HIGH    AND    LOW" 

70 

REM 

"MOTOR    DRIVE    VALUES" 

80 

REM 

"FOR    DRIVE    ROUTINES" 

90 

REM 

100 

HI    = 

255 

110 

LO    = 

128 

120 

REM 

130 

REM 

"SET    LIMIT    SWITCH    AND" 

140 

REM 

"SENSOR    THRESHOLDS" 

150 

REM 

t 

160 

THR    • 

=    130 

170 

CO    = 

160 

180 

REM 

190 

REM 

"DETERMINE    MEMORY" 

200 

REM 

"START    ADDRESS    FOR" 

210 

REM 

"PROGRAM    USE" 

220 

REM 

230 

M    =    ' 

»9280    +     (4    *    16) 

240 

REM 

250 

REM 

"CHECK    SENSOR    VALUES" 

260 

REM 

"TO    DETERMINE    IF    ANY" 

270 

REM 

"ARE    ABOVE    THRESHOLD" 

280 

REM 

290 

FOR 

I    =    1    TO    4 

300 

FOR    , 

J    =    1    TO    2 

310 

X(I) 

=      PEEK     (M    +    I) 

320 

NEXT 

J 

330 

NEXT 

I 

340 

REM 

350 

REM 

"IF    ANY    ABOVE" 

360 

REM 

"THRESHOLD    GO    TO" 

370 

REM 

"APPROPRIATE    DRIVE" 

380 

REM 

"SUBROUTINE" 

390 

REM 

400 

IF    X(3)     >       =    THR    THEN      GOTO    2000 

410 

IF    X(4)     >      =    THR    THEN      GOTO    30O0 

420 

IF    X(l)     >       =    THR    THEN      GOTO    4000 

430 

IF    X(2)     >       =    THR    THEN      GOTO    5000 

440 

GOTO 

290 

450 

REM 
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2000 

REM 

"UP  DRIVE  SUBROUTINE 

2010 

REM 

2020 

REM 

"INITIALIZE   VALUES" 

2030 

REM 

"TO  BE  USED  IN" 

2040 

REM 

"SUBROUTINE" 

2050 

REM 

2060 

LI  = 

M  +  5: 

L2  = 

M  +  6: 

L3  = 

M  +  7: 

L4  = 

M  +  8: 

L5  = 

M  +  7: 

L6  = 

M  +  3 

2070 

REM 

2080 

REM 

"DETERMINE  IF  ARM" 

2090 

REM 

"IS  AGAINST  UPPER" 

2100 

REM 

"LIMIT  SWITCH  OR  IF" 

2110 

REM 

"UPPER  SENSOR  IS" 

2120 

REM 

"STILL  ABOVE  THRES-" 

2130 

REM 

"HOLD  VALUE" 

2140 

REM 

2150 

-  Yl  = 

PEEK  <L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

2160 

REM 

2170 

REM 

"IF  SWITCH  DEPRESSED 

2180 

REM 

"OR  IF  SENSOR  BELOW" 

2190 

REM 

"THRESHOLD  RETURN  TO 

2200 

REM 

"MAIN  LOOP" 

2210 

REM 

2220 

IF  <Y1  >   =  CO)  OR  (Y2  < 

2230 

REM 

2240 

REM 

"PLUG  IN  (POKE)" 

2250 

REM 

"VALUES  FOR  FIRST" 

2260 

REM 

"TWO  0.9  DEG.  STEPS" 

2270 

REM 

2280 

POKE 

Ll,LO: 

POKE 

L2,L0: 

POKE 

L3,Hl: 

POKE 

L4,L0 

2290 

POKE 

li,lo: 

POKE 

L2,HI: 

POKE 

L3,HI: 

POKE 

L4,L0 

2300 

REM 

2310 

REM 

"RECHECK  LIMIT" 

2320 

REM 

"SWITCH  AND  SENSOR" 

2330 

REM 

"VALUES" 

2340 

REM 

2350 

Yl  = 

PEEK  <L5) : 

Yl  = 

PEEK  (L5) : 
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Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

2360 

IF  (Yl  >   =  CO)  OR  (Y2  < 

=  THR) 

2370 

REM 

2380 

REM 

"MOTOR  SETPS  THREE" 

2390 

REM 

"AND  FOUR" 

2400 

REM 

2410 

POKE 

L1,L0: 

POKE 

L2,HI: 

POKE 

L3,L0: 

POKE 

L4,L0 

2420 

POKE 

L1,L0: 

POKE 

L2,HI: 

POKE 

L3,L0: 

POKE 

L4,HI 

2430 

REM 

2440 

REM 

"RECHECK  THRESHOLD" 

2450 

REM 

"VALUES" 

2460 

REM 

2470 

Yl  = 

PEEK  (L5): 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6): 

Y2  = 

PEEK  (L6) 

2480 

IF  (Yl  >   =  CO)  OR  (Y2  < 

=  THR) 

2490 

REM 

2500 

REM 

"MOTOR  STEPS  FIVE" 

2510 

REM 

"AND  SIX" 

2520 

REM 

2530 

POKE 

L1,L0: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,HI 

2540 

POKE 

Ll, HI: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,HI 

2550 

REM 

2560 

REM 

"RECHECK  THRESHOLD" 

2570 

REM 

"VALUES" 

2580 

REM 

2590 

Yl  = 

PEEK  (L5) : 

Yl  = 

PEEK  (L5): 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

2600 

IF  (Yl  >   =  CO)  OR  (Y2  < 

=  THR) 

2610 

REM 

2620 

REM 

"MOTOR  STEPS  SEVEN" 

2630 

REM 

"AND  EIGHT" 

2640 

REM 

2650 

POKE 

LI, HI: 

POKE 

L2,L0: 
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POKE 

L3,L0: 

POKE 

L4,L0 

2660 

POKE 

LI, hi: 

POKE 

L2,lo: 

POKE 

L3,HI: 

POKE 

L4,L0 

2670 

SOTO 

2060 

3000 

REM 

"DOWN  DRIVE  ROUTINE" 

3010 

REM 

3020 

REM 

"INITIALIZE   VALUES" 

3030 

REM 

"TO  BE  USED  IN" 

3040 

REM 

"SUBROUTINE" 

3050 

REM 

3060 

LI  = 

M  +  5: 

L2  = 

M  +  6: 

L3  = 

M  -»■  7: 

L4  = 

M  +  8: 

L5  = 

M  +  8: 

L6  = 

M  +  4 

3070 

REM 

3080 

REM 

"DETERMINE  IF  ARM" 

3090 

REM 

"IS  AGAINST  DOWN" 

3100 

REM 

"LIMIT  SWITCH  OR  IF" 

3110 

REM 

"DOWN  SENSOR  IS" 

3120 

REM 

"STILL  ABOVE  THRES-" 

3130 

REM 

"HOLD  VALUE" 

3140 

REM 

3150 

Yl  = 

PEEK  <L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

3160 

REM 

3170 

REM 

"IF  SWITCH  DEPRESSED 

3180 

REM 

"OR  IF  SENSOR  BELOW" 

3190 

REM 

"THRESHOLD  RETURN  TO 

3200 

REM 

"MAIN  LOOP" 

3210 

REM 

3220 

IF  (Yl  >   =  CO)  OR  (Y2  < 

3230 

REM 

3240 

REM 

"PLUG  IN  (POKE) " 

3250 

REM 

"VALUES  FOR  FIRST" 

3260 

REM 

"TWO  0.9  DEG.  STEPS" 

3270 

REM 

3280 

POKE 

Ll, Hi: 

POKE 

L2,L0: 

POKE 

L3,HI: 

POKE 

L4,L0 

3290 

POKE 

Ll,Hl: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,L0 
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3300 

REM 

3310 

REM 

"RECHECK  LIMIT" 

3320 

REM 

"SWITCH  AND  SENSOR" 

3330 

REM 

"VALUES" 

3340 

REM 

3350 

Yl  = 

PEEK  (L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

3360 

IF  (Yl  >   =  CO)  OR  <Y2  < 

3370 

REM 

3380 

REM 

"MOTOR  STEPS  THREE" 

3390 

REM 

"AND  FOUR" 

3400 

REM 

3410 

POKE 

Ll, Hi: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,HI 

3420 

POKE 

L1,L0: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,HI 

3430 

REM 

3440 

REM 

"RECHECK  THRESHOLD" 

3450 

REM 

"VALUES" 

3460 

REM 

3470 

Yl  = 

PEEK  (L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

3480 

IF  (Yl  >   =  CO)  OR  (Y2  < 

3490 

REM 

3500 

REM 

"MOTOR  STEPS  FIVE" 

3510 

REM 

"AND  SIX" 

3520 

REM 

3530 

POKE 

Ll,LO: 

POKE 

L2,HI: 

POKE 

L3,L0: 

POKE 

L4,HI 

3540 

POKE 

L1,L0: 

POKE 

L2,HI: 

POKE 

L3,L0: 

POKE 

L4,L0 

3550 

REM 

3560 

REM 

"RECHECK  THRESHOLD" 

3570 

REM 

"VALUES" 

3580 

REM 

3590 

Yl  = 

PEEK  (L5): 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  - 

PEEK  (L6) 
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3600 

IF  (Yl  >   =  CO)  OR  (Y2  < 

3610 

REM 

3620 

REM 

"MOTOR  STEPS  SEVEN" 

3630 

REM 

"AND  EIGHT" 

3640 

REM 

3650 

POKE 

li,lo: 

POKE 

L2,HI: 

POKE 

L3,Hl: 

POKE 

L4,L0 

3660 

POKE 

L1,L0: 

POKE 

L2,L0: 

POKE 

L3,HI: 

POKE 

L4,L0 

3670 

GOTO 

306O 

4000 

REM 

"EAST  DRIVE  ROUTINE" 

4010 

REM 

4020 

REM 

"INITIALIZE   VALUES" 

4030 

REM 

"TO  BE  USED  IN" 

4040 

REM 

"SUBROUTINE" 

4050 

REM 

4060 

LI  = 

M  +  l: 

L2  = 

M  +  2: 

L3  = 

M  +  3: 

L4  = 

M  +  4: 

L5  = 

M  +  5: 

L6  = 

M  +  1 

4070 

REM 

4080 

REM 

"DETERMINE  IF  ARM" 

4090 

REM 

"IS  AGAINST  EAST" 

4100 

REM 

"LIMIT  SWITCH  OR  IF" 

4110 

REM 

"EAST  SENSOR  IS" 

4120 

REM 

"STILL  ABOVE  THRES-" 

4130 

REM 

"HOLD  VALUE" 

4140 

REM 

4150 

Yl  = 

PEEK  (L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

4160 

REM 

4170 

REM 

"IF  SWITCH  DEPRESSED" 

4180 

REM 

"OR  IF  SENSOR  BELOW" 

4190 

REM 

"THRESHOLD  RETURN  TO" 

4200 

REM 

"MAIN  LOOP" 

4210 

REM 

4220 

IF  (Yl  >   =  CO)  OR  (Y2  < 

4230 

REM 

4240 

REM 

"PLUG  IN  (POKE)" 

4250 

REM 

"VALUES  FOR  FIRST" 

4260 

REM 

"TWO  0.9  DEG.  STEPS" 

4270 

REM 

4280 

POKE 

Ll, Hi: 
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POKE  L2,L0: 

POKE  L3,HI: 

POKE  L4,L0 

4290   POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,L0 


4300 

REM 

4310 

REM 

"RECHECK  LIMIT" 

4320 

REM 

"SWITCH  AND  SENSOR" 

4330 

REM 

"VALUES" 

4340 

REM 

4350 

Yl  = 

PEEK  (L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

4360 

IF  (Yl  >   =  CO)  OR  (Y2  < 

4370 

REM 

4380 

REM 

"MOTOR  STEPS  THREE" 

4390 

REM 

"AND  FOUR" 

4400 

REM 

4410 

POKE 

LI, HI: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,HI 

4420 

POKE 

Ll,LO: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,HI 

4430 

REM 

4440 

REM 

"RECHECK  THRESHOLD" 

4450 

REM 

"VALUES" 

4460 

REM 

4470 

Yl  = 

PEEK  (L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

4480 

IF  (Yl  >   =  CO)  OR  (Y2  < 

4490 

REM 

4500 

REM 

"MOTOR  STEPS  FIVE" 

4510 

REM 

"AND  SIX" 

4520 

REM 

4530 

POKE 

Ll,LO: 

POKE 

L2,Hl: 

POKE 

L3,L0: 

POKE 

L4,HI 

4540 

POKE 

L1,L0: 

POKE 

L2,HI: 

POKE 

L3,L0: 

POKE 

L4,L0 

4550 

REM 
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4560 
4570 
4580 
4590 


4600 
4610 
4620 
4630 
4640 
4650 


4660 


4670 
5000 
5010 
5020 
5030 
5040 
5050 
5060 


5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 


5160 
5170 
5180 
5190 
5200 
5210 


REM 

REM 

REM 

Yl  = 

Yl  = 

Y2  = 

Y2  = 

IF  ( 

REM 

REM 

REM 

REM 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

GOTO 

REM 

REM 

REM 

REM 

REM 

REM 

LI  = 

L2  = 

L3  = 

L4  = 

L5  = 

L6  = 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

Yl  = 

Yl  = 

Y2  = 

Y2  = 

REM 

REM 

REM 

REM 

REM 

REM 


"RECHECK  THRESHOLD" 
"VALUES" 

PEEK  (L5): 
PEEK  <L5) : 
PEEK  <L6): 
PEEK  (L6) 
Yl  >   =  CO)  OR  (Y2  < 

"MOTOR  STEPS  SEVEN" 
"AND  EIGHT" 

L1,L0: 

L2,HI: 

L3,HI: 

L4,L0 

L1,L0: 

L2,L0: 

L3,HI: 

L4,L0 

4060 

"WEST  DRIVE  ROUTINE" 

"INITIALIZE   VALUES" 
"TO  BE  USED  IN" 
"SUBROUTINE" 

M  +  l: 

M  +  2: 

m  +  3: 

M  +  4: 

M  +  6: 

M  +  2 

"DETERMINE  IF  ARM" 
"IS  AGAINST  WEST" 
"LIMIT  SWITCH  OR  IF" 
"WEST  SENSOR  IS" 
"STILL  ABOVE  THRES-" 
"HOLD  VALUE" 

PEEK  <L5>: 

PEEK  (L5) : 

PEEK  <L6> : 

PEEK  (L6) 

"IF  SWITCH  DEPRESSED' 
"OR  IF  SENSOR  BELOW" 
"THRESHOLD  RETURN  TO' 
"MAIN  LOOP" 
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5220 

IF  (Yl  >   =  CO)  OR  (Y2  < 

5230 

REM 

5240 

REM 

"PLUG  IN  (POKE) " 

5250 

REM 

"VALUES  FOR  FIRST" 

5260 

REM 

"TWO  0.9  DEG.  STEPS" 

5270 

REM 

5280 

POKE 

Ll,LO: 

POKE 

L2,L0: 

POKE 

L3,Hl: 

POKE 

L4,L0 

5290 

POKE 

L1,L0: 

POKE 

L2,HI: 

POKE 

L3,Hl: 

POKE 

L4,L0 

5300 

REM 

5310 

REM 

"RECHECK  LIMIT" 

5320 

REM 

"SWITCH  AND  SENSOR" 

5330 

REM 

"VALUES" 

5340 

REM 

5350 

Yl  = 

PEEK  (L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

5360 

IF  (Yl  >   =  CO)  OR  (Y2  < 

5370 

REM 

5380 

REM 

"MOTOR  SETPS  THREE" 

5390 

REM 

"AND  FOUR" 

5400 

REM 

5410 

POKE 

L1,L0: 

POKE 

L2,Hl: 

POKE 

L3,L0: 

POKE 

L4,L0 

5420 

POKE 

L1,L0: 

POKE 

L2,HI: 

POKE 

L3,L0: 

POKE 

L4,HI 

5430 

REM 

5440 

REM 

"RECHECK  THRESHOLD" 

5450 

REM 

"VALUES" 

5460 

REM 

5470 

Yl  = 

PEEK  (L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

5480 

IF  (Yl  >   =  CO)  OR  (Y2  < 

5490 

REM 

5500 

REM 

"MOTOR  STEPS  FIVE" 

5510 

REM 

"AND  SIX" 

5520 

REM 

5530 

POKE 

Ll,LO; 

POKE 

L2,L0:. 
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POKE 

L3,L0: 

POKE 

L4,HI 

5540 

POKE 

LI, HI: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,HI 

5550 

REM 

5560 

REM 

"RECHECK  THRESHOLD" 

5570 

REM 

"VALUES" 

5580 

REM 

5590 

Yl  = 

PEEK  <L5) : 

Yl  = 

PEEK  (L5) : 

Y2  = 

PEEK  (L6) : 

Y2  = 

PEEK  (L6) 

5600 

IF  (Yl  >   =  CO)  OR  (Y2  < 

5610 

REM 

5620 

REM 

"MOTOR  STEPS  SEVEN" 

5630 

REM 

"AND  EIGHT" 

5640 

REM 

5650 

POKE 

LI, Hi: 

POKE 

L2,L0: 

POKE 

L3,L0: 

POKE 

L4,L0 

5660 

POKE 

LI, Hi: 

POKE 

L2,L0: 

POKE 

L3,HI: 

POKE 

L4,L0 

5670 

GOTO 

5060 
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APPENDIX  B 
MAIN  SUN  TRACKING  PROGRAM 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
341 
342 
343 
344 
345 
346 
347 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


REM  **************************************** 

REM  **  THE  FOLLOWING  IS  A  PROGRAM  FOR  SUN  ** 

REM  **  TRACKING.  IT  CONSISTS  OF  FOUR  MAIN  ** 

REM  **  PARTS.  (1)  A  SYSTEM  CALIBRATION     ** 

REM  **  ROUTINE  (2)  A  SUN  LOCATION  ROUTINE  ** 

REM  **  (3)  A  SUN  TRACKING  ROUTINE  (4)  AND  ♦* 

REM  **  A  CLOUD  COVER  WAIT  ROUTINE.  ** 

REM  **************************************** 

REM 

REM 

REM  ***************************************** 

REM  ***        CALIBRATION  ROUTINE         *** 

REM  *********************************  ******* 

REM 

REM 

REM  ***  CLEAR  SCREEN  *** 

HOME 

REM 

REM  ***  PRINT  HEADER  ON  SCREEN  *** 

REM 

VTAB  2:  PRINT 

VTAB  3:  PRINT 

VTAB  4:  PRINT 

VTAB  5:  PRINT 

VTAB  6:  PRINT 

REM 

REM  *** 

REM  *-** 

REM  *** 

REM  *** 

REM  *** 

REM 

REM 

REM  *** 

REM  *** 

REM 

M  =  49280  +  (4  *  16) 

REM 

REM  ***  SET  VALUE  TO 

REM  ***  LIMIT  SWITCH 

REM 

CO  .=  160 

REM 


"THE  NUMBER  OF  0.9  DEG.  STEPS  REQUIRED" 
"TO  DRIVE  THE  SYSTEM  THROUGH  A  COMPLETE" 
"HORIZONTAL  OR  VERTICAL  TRANSITION  ARE" 
"COUNTED  AND  USED  TO  DETERMINE  TRACKING" 
"POSITION,  AND  CHECK  SYSTEM  CALIBRATION" 


DUE  TO  GEARING  DOWN  OF 
THE  DRIVE  MOTORS  APPROX 
500    0.9DEG  STEPS  ARE 
REQUIRED  TO  TRANSITION  90 
DEGREES. 


CALCULATE  MEMORY  LOCATION 
POINTER  FOR  A/D  CARD. 


DETERMINE  IF 
IS  DEPRESSED 


*** 
*■** 
*»* 
*** 
*** 


*** 


*-** 
-»-*«- 
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460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


760 
770 
780 
790 
800 
810 
820 


830 
840 
850 
860 


REM  ***  SET  VALUES  FOR  STEP  POKES  *** 

REM  ***  TO  A/D  CARD, 127=0V  255=5V  *** 

REM 

HI  =  255 

LO  =  127 

REM 

REM  ***  INITIALIZE  COUNTERS  TO  BE  *** 

REM  ***  USED  IN  SUN  LOCATION  RTN.  *** 

REM 

AB  =  o:ac  =  O 

REM 

REM  ***  THESE  TWO  CALLS  INITIALIZE*** 

REM  ***  THE  SEEKER  BY  PLACING  IT   *** 

REM  ***  IN  AN  UPRIGHT  EAST  FACING  *** 

REM  ***  POSITION  *** 

REM 

VTAB  8:  PRINT  "PLACE  IN  UPRIGHT  POSITION" 

REM 

REM  ***  PASS  TO  DRIVE  ROUTINES  THE*** 

REM  ***  MEMORY  LOCATIONS  OF  THE    *** 

REM  ***  A/D  CARD  TO  POKE  STEP      *** 

REM  ***  VALUES  TO  (L1-L4) .  ALSO    *** 

REM  ***  MEMORY  LOCATION  OF  LIMIT   *** 

REM  ***  SWITCH  TO  CHECK  FOR        *** 

REM  ***  DEPRESSION  AT  END  OF  RUN   *** 

REM  ***  (L5) ,  AND  PASS  VALUE  TO    *** 

REM  ***  TO  TELL  ROUTINE  IF  IT  IS   *** 

REM  ***  DRIVING  UP  OR  EAST  (L6)    *** 

REM 

LI  =  M  +  5: 

L2  =  M  +  6: 

L3  =  M  +  7: 

L4  =  M  +  8: 

L5  =  M  +  8: 

L6  =  1 

GOTO  1810 

REM 


REM  ***  DRIVE  TO  EAST 

REM  ***  USE  AS  ABOVE. 

REM 

VTAB  8:  PRINT  "SET  FACING  EAST 

l: 

^_  • 

3: 
4: 
5: 


L1-L6  SAME  *** 


LI 
L2 
L3 
L4 
L5 
L6 


M 
M 
M 
M 
M 
2 


GOTO  1810 

REM 

REM  ***  THESE  TWO  CALLS  CAUSE  THE  *** 

REM  ***  NUMBER  OF  STEPS  FOR  ONE    *** 
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870  REM  ***  TRANSITION  WEST  AND  ONE  *** 
880  REM  ***  TRANSITION  TO  THE  DOWN  *** 
890  REM  ***  POSITION  TO  BE  COUNTED  *** 
900   REM 

910   VTAB  8:  PRINT  "WEST  COUNTING  RUN" 
920   REM 

930  REM  ***  EAST  COUNTING  RUN.  PASS  *** 
940  REM  ***  TO  DRIVE  ROUTINE  STEP  *** 
950  REM  ***  POKE  MEMORY  LOCATIONS  *** 
960  REM  ***  (L1-L4),  LIMIT  SWITCH  <L5)*** 
970  REM  ***  WHERE  TO  RETURN  WHEN  *** 
980  REM  ***  FINISH  COUNTING  RUN  <L6>  *** 
990  REM  ***  AND  INDICATOR  OF  WEST  OR  *** 
1000  REM  ***  UP  COUNTING  RUN  <L7) ,  *** 
1010  REM 
1020   LI  =  M  +  l: 

L2  =  M  +  2: 

L3  =  M  +  3: 

L4  =  M  +  4: 

L5  =  M  +  6: 

L6  =  1: 

L7  =  200 
1030   GOTO  2320 
1040   REM 

1050  REM  ***  PRINT  OUT  NUMBER  OF  STEPS  *** 
1060  REM  ***  FOR  EAST  TO  WEST  TRANS I-  *** 
1070  REM  ***  TION  (LN) ,  AND  STEPS  PER  *** 
1080   REM  ***  DEGREE  (LD) .  *** 

1090   REM 

1100   VTAB  14:  PRINT  "LONGITUDE  COUNT="LN 
1110   LD  =  LN  /  180 
1120   REM 

1130  REM  ***  LIMIT  SCREEN  DISPLAY  TO  *** 
1140  REM  ***  TWO  DECIMAL  POINT  ACCURACY*** 
1150   REM 

1160   LD  =   INT  (LD  *  100  +  .5)  /  100 
1170   VTAB  18:  PRINT  "STEPS/DEG.  LONG="LD 
1180   REM 

1190  REM  ***  COUNTING  RUN  FROM  UPRIGHT  *** 
1200   REM  ***  TO  DOWN  POSITION  *** 

1210   REM 

1220   VTAB  8:  PRINT  "VERT  COUNTING  RUN" 
1230   REM 

1240   REM  ***  PASS  SAME  INFORMATION  AS   *** 
1250   REM  ***  AS  ABOVE  TO  DRIVE  ROUTINE  *** 
1260   REM 
1270   LI  =  M  +  5: 

L2  =  M  +  6: 

L3  =  M  +  7: 

L4  =  M  +  8: 

L5  =  M  +  7: 
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L6  =  2: 

L7  =  155 
1280   GOTO  2320 
1290   REM 

1300  REM  ***  PRINTOUT  SAME  AS  ABOVE  *** 
1310  REM  **-*  FOR  STEPS  FROM  UP  TO  DOWN  *-** 
1320  REM  ***  POSITION  (LT) ,  AND  STEPS  *** 
1330   REM  ***  PER  DEGREE  (LE) .  *** 

1340   REM 

1350   VTAB  15:  PRINT  "LATITUDE  COUNT  ="LT 
1360   LE  =  LT  /  90 

1370   LE  =   INT  (LE  *  100  +  .5)  /  100 
1380   VTAB  19:  PRINT  "STEPS/DEG.  LAT  ="LE 
1390   REM 

1400  REM  ***  THESE  TWO  CALLS  RETURN  *** 
1410  REM  ***  THE  SEEKER  TO  THE  UPRIGHT  *-** 
1420  REM  ***  AND  EAST  FACING  POSITION  *♦* 
1430  REM  ***  BEFORE  GOING  TO  THE  SUN  *** 
1440   REM  ***  LOCATION  ROUTINE  *** 

1450   REM 

1460   VTAB  8:  PRINT  "RETURN  TO  START  POSITION" 
1470   LI  =  M  +  5: 

L2  =  M  +  6: 

L3  =  M  +  7: 

L4  =  M  +  8: 

L5  =  M  +  8: 

L6  =  3 
1480   GOTO  1810 
1490   LI  =  M  +  l: 

L2  =  M  +  2: 

L3  =  M  +    3: 

L4  =  M  +  4: 

L5  =  M  +  5: 

L6  =  4 
1500   GOTO  1810 
1510   HOME 
1520   REM 

1530  REM  ***  DETERMINE  IF  THE  NUMBER  *** 
1540  REM  ***  OF  STEPS  FOR  EACH  TRANS I-  *** 
1550  REM  ***  TION  IS  OUT  OF  LIMITS,  IF  *-** 
1560  REM  ***  IT  IS  PRINT  APPROPRIATE  *** 
1570   REM  ***  ERROR  MESSAGE.  *** 

1580   REM 
1590   IF  (LN  <  990)  OR  (LN  >  1020)  THEN   VTAB  10: 

PRINT  "HORIZONTAL  PARAMETERS  OUT  OF  RANGE":  VTAB  11 

PRINT  "CHECK  LIMIT  SWITCH  ALLIGNMENT":  GOTO  1660 
1600   IF  (LT  <  490)  OR  (LT  >  520)  THEN   VTAB  12: 

PRINT  "VERTICAL  PARAMETERS  OUT  OF  RANGE":  VTAB  13: 

PRINT  "CHECK  LIMIT  SWITCH  ALLIGNMENT":  GOTO  1660 
1610   GOTO  5090 
1620   REM 
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1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 


1910 

1920 
1930 


1940 

1950 
1960 


1970 

1980 
1990 


REM  ***  DETERMINE  IF  WANT  TO       *** 

REM  ***  CONTINUE  WHEN  OUT  OF  LIMIT*** 

REM 

VTAB  15:  INPUT  "DO  YOU  WANT  TO  CONTINUE? (Y/N) " ; K* 

IF  K*  =  "N"  THEN   PRINT   CHR*  (4) ; "RUN  HELLO" 

IF  K*  =  "Y"  THEN   GOTO  5090 

REM 

REM  ***  DRIVE  ROUTINE  FOR  EAST  AND*** 

REM  ***  UP  INITIALIZATION.  *** 

REM 

REM 

REM 

REM  ***  CHECK  LIMIT  SWITCH  AS      *** 

REM  ***  DETERMINED  BY  L5,  TO       *** 

REM  ***  SEE  IF  SEEKER  ARM  IS       *** 

REM  ***  AGAINST  IT.  IF  IT  IS  JUMP  *** 

REM  ***  OUT  OF  THE  ROUTINE.         *** 

REM 

Yl  =   PEEK  (L5):Y1  =   PEEK  (L5) 

IF  Yl  >  CO  THEN   GOTO  2220 

REM 

REM  ***  VALUES  TO  POKE  INTO  D/A    *** 

REM  ***  CARD  MEMORY  LOCATIONS      *** 

REM  ***  (L1-L4)  TO  PRODUCE  MOTOR   *** 

REM  ***  STEP.  REPEAT  FOR  8  STEP    *** 

REM  ***  CONTINUOUS  LOOP.  *** 

REM 

POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,HI: 

POKE  L4,L0 

Yl  =   PEEK  (L5): 

Yl  =   PEEK  (L5) 

IF  Yl  >  CO  THEN 

POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,L0:  • 

POKE  L4,L0 

Yl  =   PEEK  (L5) 

Yl  =   PEEK  (L5) 

IF  Yl  >  CO  THEN 

POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,HI 

Yl  =   PEEK  (L5) 

Yl  =   PEEK  (L5) 

IF  Yl  >  CO  THEN 

POKE  L1,L0: 

POKE  L2,L0: 

POKE  L3,L0: 


GOTO  2220 


GOTO  2220 


GOTO  2220 
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POKE  L4,HI 

2000 

Yl  =   PEEK  (L5) : 
Yl  =   PEEK  (L5) 

2010 

IF  Yl  >  CO  THEN 

GOTO  2220 

2020 

POKE  L1,L0: 
POKE  L2,HI: 
POKE  L3,L0: 
POKE  L4,HI 

2030 

Yl  =   PEEK  <L5>: 
Yl  =   PEEK  (L5) 

2040 

IF  Yl  >  CO  THEN 

GOTO  2220 

2050 

POKE  L1,L0: 
POKE  L2,HI: 
POKE  L3,L0: 
POKE  L4,L0 

2060 

Yl  =   PEEK  (L5) : 
Yl  =   PEEK  (L5) 

2070 

IF  Yl  >  CO  THEN 

GOTO  2220 

2080 

POKE  L1,L0: 
POKE  L2,HI: 
POKE  L3,HI: 
POKE  L4,L0 

2090 

Yl  =   PEEK  (L5) : 
Yl  =   PEEK  (L5) 

2100 

IF  Yl  >  CO  THEN 

GOTO  2220 

2110 

POKE  L1,L0: 
POKE  L2,L0: 
POKE  L3,HI: 
POKE  L4,L0 

2120 

REM 

2130 

REM  ***  RETURN  TO  STEP  ONE 

*** 

2140 

REM 

2150 

GOTO  1810 

2160 

REM 

2170 

REM  ***  RETURN  TO  THE  CORECT 

*** 

2180 

REM  ***  PORTION  1 

DF  THE  CONTROL 

♦** 

21 90 

REM  ***  SECTION, 

AS  DETERMINED 

*•** 

2200 

REM  ***  BY  L6 

*** 

2210 

REM 

2220 

ON  L6  GOTO  810,910,1490,1510 

2230 

REM 

2240 

REM 

2250 

REM  ***  WEST  AND 

DOWN  COUNTING 

-»-** 

2260 

REM  ***  DRIVE  ROUTINE. 

*** 

2270 

REM 

2280 

REM 

2290 

REM 

2300 

REM  ***  INITIALIZE  COUNTER  (N) 

*** 

2310 

REM 

2320 

N  =  0 

2330 

REM 
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2340   REM  ***  STEP  ONE  OF  EIGHT  *** 

2350   REM 

2360   POKE  L1,L0: 

POKE  L2,L0: 

POKE  L3,HI: 

POKE  L4,L0 
2370   REM 

2380   REM  ***  INCRIMENT  COUNTER  *** 

2390   REM 
2400   N  =  N  +  1 
2410   REM 

2420  REM  ***  PRINT  COUNT  VALUE  AND  *** 
2430  REM  ***  ASSIGN  IT  TO  CORRECT  *** 
2440  REM  ***  VARIABLE  AS  DETERMINED  *** 
2450   REM  ***  BY  L7  *** 

2460   REM 
2470   IF  L7  =  200  THEN   VTAB  10: 

PRINT  "HORIZCT="N:LN  =  N 
2480   IF  L7  =  155  THEN   VTAB  12: 

PRINT  "VERTCT  ="N:LT  =  N 
2490   POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,HI: 

POKE  L4,L0 
2500   REM 

2510  REM  ***  CHECK  THE  LIMIT  SWITCH  *** 
2520  REM  ***  ASSIGNED  BY  L5.  IF  THE  *** 
2530  REM  ***  SEEKER  IS  AGAINST  IT  EXIT  *** 
2540   REM  ***  THE  DRIVE  ROUTINE.  *** 

2550  REM  ***  NOTE: THE  TASKS  ARE  DIVIDED*** 
2560  REM  ***  AND  ASSIGNED  TO  EVERY  *** 
2570  REM  ***  OTHER  STEP  FOR  DRIVE  SPEED*** 
2580   REM 

2590   Yl  =   PEEK  <L5) 
2600   Yl  =   PEEK  (L5) 

2610   IF  Yl  >   =  CO  THEN   GOTO  3050 
2620   N  =  N  +  1 
2630   REM 

2640  REM  ***  CONTINUE  FOR  EIGHT  STEP  *** 
2650   REM  ***  LOOP.  *** 

2660   REM 
2670   POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,L0: 

POKE  L4,L0 
2680   N  =  N  +  1 
2690   IF  L7  =  200  THEN   VTAB  10: 

PRINT  "HORIZCT="N:LN  =  N 
2700   IF  L7  =  155  THEN   VTAB  12: 

PRINT  "VERTCT  ="N:LT  =  N 
2710   POKE  L1,L0: 
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POKE  L2,HI: 

POKE  L3,L0: 

POKE  L4,HI 
2720   Yl  =   PEEK  (L5) 
2730   Yl  =   PEEK  (L5) 
2740   IF  Yl  >   =  CO  THEN 
2750   N  =  N  +  1 
2760   POKE  L1,L0: 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,HI 


GOTO  3050 


2770 

N  =  N  +  1 

2780 

IF  L7  =  200  THEN 

VTAB 

10: 

PRINT  "HORIZCT="N: 

:LN  = 

N 

2790 

IF  L7  =  155  THEN 

VTAB 

12: 

PRINT  "VERTCT  ="N: 

;LT  = 

N 

2800 

POKE  LI, HI: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,HI 

2810 

Yl  =   PEEK  (L5) 

2820 

Yl  =   PEEK  (L5) 

2830 

IF  Yl  >   =  CO  THEN   GOTO  3050 

2840 

N  =  N  +  1 

2850 

POKE  LI, HI: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,L0 

2860 

N  =  N  +  1 

2870 

IF  L7  =  200  THEN 

VTAB 

10: 

PRINT  nHORIZCT="N: 

:LN  = 

N 

2880 

IF  L7  =  155  THEN 

VTAB 

12: 

PRINT  "VERTCT  ="N: 

:lt  = 

N 

2890 

POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,HI: 

POKE  L4,L0 
2900   Yl  =   PEEK  (L5) 
2910   Yl  =   PEEK  (L5) 

2920   IF  Yl  >   =  CO  THEN   GOTO  3050 
2930   N  =  N  +  1 
2940   REM 

2950   REM  ***  RETURN  TO  STEP  ONE 
2960   REM 
2970   GOTO  2360 
2980   REM 

2990  REM  ***  WHEN  WEST  COUNTING  RUN 
3000  REM  ***  COMPLETE  SWITCH  TO  DOWN 
3010  REM  ***  COUNTING  RUN.  WHEN  COUNT  *-** 
3020  REM  ***  RUNS  COMPLETE  RETURN  TO  *** 
3030   REM  ***  EAST/UP  START  POSITION     *** 


**-* 


♦** 
*** 
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3040 
3050 

5000 
5005 
5010 
5015 
5020 
5025 
5030 
5035 
5040 
5045 
5050 
5055 
5060 
5065 
5070 
5075 
5080 
5085 
5090 
5095 
5100 
5105 
5110 
5115 
5120 
5125 
5130 
5135 
5140 
5145 
5150 
5155 
5160 
5165 
5168 
5170 
5175 
5180 


5185 
5190 
5195 
5200 
5205 
5210 
5215 


REM 
ON  L6 


GOTO  1100,1350 


THIS  ROUTINE  LOCATES  THE 
SUN  IN  A  GENERAL  AREA  AND 
PASSES  CONTROL  TO  THE  SUN 
TRACKING  ROUTINE  FOR  FINE 
ADJUSTING  AND  LOCK  ON 
FOLLOWING. 


INITIALIZE  COUNTERS 


»** 
*** 
*** 
*** 
*** 
*** 


*** 


REM 

REM 

REM  **************************************** 

REM  **         SUN  LOCATION  ROUTINE         ** 

REM  **************************************** 

REM 

REM 

REM  *** 

REM  *** 

REM  *** 

REM  *** 

REM  *** 

REM  *** 

REM 

REM 

REM 

REM  *** 

REM 

DH  =  O 

Z  =  O 

G  =  O 

C2  =  O 

HOME 

REM 

REM  *** 

REM  *** 

REM  *** 

REM 

IF  AB  = 

AB  =  AB 

VTAB  2: 

VTAB 

VTAB 

REM 

REM  *** 

REM  *** 

REM 

LI  = 

L2  = 

L3  = 

L4  = 

REM 

REM  *** 

REM  *** 

REM  *** 

REM  *** 

REM 

C2  =   PEEK 


IF  FAIL  TO  LOCATE 
AFTER  TWO  TRYS  GO 
ERROR  MESSAGE. 


6025 


THE 
TO 


SUN 


*** 
*** 
*** 


3: 
4: 


2  GOTO 

+  1 

PRINT  "THIS  ROUTINE  FINDS  THE  SUN'S  POSITION" 

PRINT  "AND  PASSES  CONTROL  TO  SUN  TRACKING" 

PRINT  "ROUTINES" 


A/D  CARD  MEMORY  LOCA- 
TIONS FOR  DRIVE  STEPS 


*** 
*** 


M  + 

M  + 

M  + 

M  + 


l: 
2: 
3: 
4 


CHECK  UPSENSOR  VALUE  IF 
GREATER  THAN  CUTOFF  VALUE 
GO  TO  SUN  LOCATION  LOGIC 
IF  NOT  CONTINUE  TO  LOOP 


*** 
♦** 
*** 
*** 


(M  +  3) 
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*** 


PRINT  "EAST=0  DEG:S0UTH=90  DEG:WEST=180  DEG 


*** 


(M 

+ 

3): 

(M 

+ 

3) 

(M 

+ 

6) : 

<M 

+ 

6) 

C2  =   PEEK  (M  +  3) 
5220   IF  C2  >   =130  THEN   GOTO  5250 
5225   VTAB  6:  PRINT  "US="C2 
5230   GOTO  5215 
5235   REM 

5240   REM  ***      SUN  LOCATION  LOGIC 
5245   REM 
5250   VTAB  9: 
5255   REM 

5260   REM  ***  FIRST  STEP 
5265   REM 
5270   POKE  L1,L0: 

POKE  L2,L0: 

POKE  L3,HI: 

POKE  L4,L0 
5275   REM 

5280  REM  ***  CHECK  UPSENSOR  (C2) ,  AND  *** 
5285  REM  ***  WEST  LIMIT  SWITCH  (LW) ,  *** 
5290   REM  ***  VALUES.  *** 

5295   REM 
5300   C2  =   PEEK 

C2  =   PEEK 
5305   LW  =   PEEK 

LW  =   PEEK 
5310   REM 

5315  REM  ***  PRINT  UPSENSOR  VALUE  ON  *** 
5320  REM  ***  SCREEN,  ENSURE  SUN  BRIGHT  *** 
5325  REM  ***  ENOUGH  (C2M31),  THAT  ARM  *** 
5330  REM  ***  IS  NOT  AGAINST  WEST  LIMIT  *** 
5335  REM  ***  SWITCH  (LW<160),  AND  *** 
5340  REM  ***  INCRIMENT  DEGREES  HORIZ.  *** 
5345   REM  ***  COUNTER   (DH)  *** 

5350  REM 
5355  VTAB  6: 
5360  IF  C2  < 
5365  IF  LW  > 
5370  DH  =  DH 
5375   REM 

5380   REM  ***  SECOND  STEP 
5385   REM 
5390   POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,HI: 

POKE  L4,L0 
5395   REM 

5400   REM  ***  IF  OF  UPSENSOR  OBTAINED 
5405   REM  **♦  THIS  TIME  <C2) 
5410   REM  ***  THAN  THE  VALUE  OBTAINED 
5415   REM  ***  LAST  TIME  (CD,  ZERO  THE 
5420 
5425 


PRINT  "UPSENSOR  READING  ="C2 
131  THEN   GOTO  5945 
160  THEN   GOTO  5985 
+  1 


*** 


*** 

:  »** 

*** 

*** 

REM  ***  COUNTER  BECAUSE  STILL      *** 
REM  ***  HEADING  TOWARD  THE  SUN     *** 
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5430 
5435 
5440 
5445 
5450 
5455 
5460 
5465 
5470 
5475 
5480 
5485 
5490 
5495 
5500 
5505 
5510 
5515 
5520 
5525 
5530 
5535 
5540 
5545 
5550 
5555 
5560 
5565 
5570 
5575 
5580 
5585 
5590 
5595 
5600 
5605 
5610 
5615 
5620 
5625 
5630 


5635 

5640 

5645 
5650 
5655 


REM 

IF  C2  > 
REM 
REM  *** 


CI  THEN  Z  =  0:G  =  0 


IF  CURRENT  VALUE  LESS 


*•»-» 


*** 


AND  <Z  >  0)  THEN  G  =  G  +  2 


REM  ***  THAN  LAST  VALUE  INCRIMENT  *** 

REM  ***  COUNTER  ( Z ) ,  AND  STEPS     *** 

REM  ***  TAKEN  SINCE  MAX  VALUE      *** 

REM  ***  COUNTER  (G) .  *** 

REM 

IF  C2  <  CI  THEN  Z=Z+l:G=G+2 

REM 

REM  ***  CONTINUE  COUNTING  STEPS 

REM  ***  SINCE  PASSED  MAX  VALUE 

REM  ***  OF  UPSENSOR. 

REM 

IF  <C2  =  CI) 

REM 

REM  ***  REPLACE  PREVIOUS  READING   *** 

REM  ***  WITH  CURRENT  READING  FOR   *** 

REM  ***  NEXT  CHECK.  *** 

REM 

CI  =  C2 

REM 

REM  ***  IF  CURRENT  READING  WAS     *** 

REM  ***  LESS  THAN  PREVIOUS  READING*** 

REM  ***  FOR  THREE  CONSECUTIVE 

REM  ***  CHECKS,  THEN  ARE  GOING 

REM  ***  AWAY  FROM  SUN.  GO  BACK  TO  *** 

REM  ***  WHERE  FIRST  C2<C1  OCCURED  *** 

REM  ***  (G)  STEPS  AGO.  *** 

REM 

IF  Z  =  3  THEN  AB  =  O:  GOTO  6090 

REM 

REM  ***  INCRIMENT  DEGREES  HORIZ.   *** 

REM  ***  COUNTER  (DH) .  REPEAT  ABOVE*** 

REM  ***  LOGIC  ON  ALTERNATE  STEP    *** 

REM  ***  BASIS  FOR  REMAINING  STEPS  *** 

REM  ***  OF  EIGHT  STEP  DRIVE  LOOP   *** 

REM 

DH  =  DH  +  1 

POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,L0: 

POKE  L4,L0 


-»•»-» 
•»-*-» 


C2  = 
C2  = 
LW  = 
LW  = 


PEEK 
PEEK 
PEEK 
PEEK 


<M 
(M 
(M 
(M 


3)  : 
3) 
6)  : 
6) 


VTAB  6:  PRINT  "UPSENSOR  READING  ="C2 
IF  C2  <  131  THEN   GOTO  5945 
IF  LW  >  160  THEN   GOTO  5985 
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5660 
5665 
5670 


5675 
5680 
5685 
5690 
5695 
5700 
5705 
5710 
5715 
5720 
5725 
5730 
5735 


5740 

5745 

5750 
5755 
5760 
5765 
5770 
5775 


5780 
5785 
5790 
5795 
5800 
5805 
5810 


5815 

5820 

5825 
5830 


0:8  =  0 

z  +  i:G  = 

THEN 


(Z  >  0) 


+  2 
=  G 


GOTO  6090 


XI  =  DH  /  LD 

DH  =  DH  +  1 

POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,L0: 

POKE  L4,HI 

IF  C2  >  CI  THEN  Z 

IF  C2  <  CI  THEN  Z 

IF  (C2  =  CI)  AND 

CI  =  C2 

IF  Z  =  3  THEN  AB  = 

DH  =  DH  +  1 

REM 

REM  ***  SET  UP  FOR  DEGREES  LONG.   *** 

REM  ***  PRINTOUT  WITH  ONE  DECIMAL  *** 

REM  ***  PLACE  ACCURACY.  *** 

REM 

XI  =   INT  <X1 

POKE  L1,L0: 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,HI 

PEEK 

PEEK 

PEEK 

PEEK 
6 


*  10  +  .5)  /  10 


(M 
(M 
(M 
(M 


3) 
3) 
6) 
6) 


C2  = 

C2  = 

LW  = 

LW  = 

VTAB 

IF  C2  < 

IF  LW  > 

VTAB  8: 

DH  =  DH 

POKE  LI 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,HI 

IF  C2  >  CI  THEN  Z 

IF  C2  <  CI  THEN  Z  = 

IF  <C2  =  CI)  AND  <Z 

CI  =  C2 

IF  Z  =  3  THEN  AB  =  O: 

DH  =  DH  +  1 

POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,L0 


PRINT  "UPSENSOR  READING  =  "C2 

131  THEN   GOTO  5945 

160  THEN   GOTO  5985 

PRINT  "DEGREES  LONGITUDE  =  "X1 

+  1 

Hi: 


=  0:G  =  O 


z 

>  O) 


+  1:6  =  6  +  2 


THEN  G  =  G  +  2 


GOTO  6090 


C2  = 
C2  = 
LW  = 
LW  = 
VTAB  6: 
IF  C2  < 


PEEK 
PEEK 
PEEK 
PEEK 


(M 
<M 
<M 
(M 


3) 
3) 
6) 
6) 


PRINT  "UPSENSOR  READING  ="C2 
131  THEN   GOTO  5945 
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5835 

IF  LW  > 

160  THEN   GOTO  5985 

5840 

DH  = 

DH 

+  1 

5845 

POKE 

LI, 

,HI: 

POKE 

L2, 

LO: 

POKE 

L3, 

,HI: 

POKE 

L4, 

LO 

5850 

IF  C2  > 

CI  THEN  Z  =  0:G  =  0 

5855 

IF  C2  < 

CI  THEN  Z=Z+l:G=G+ 

2 

5860 

IF  <C2  = 

=  CI)  AND  (Z  >  0)  THEN  G  = 

G  + 

5865 

CI  = 

C2 

5870 

IF  Z 

=  3  THEN  AB  =  3:  GOTO  6090 

5875 

DH  = 

DH 

+  1 

5880 

REM 

5885 

REM 

»-»-» 

RETURN  TO  STEP  ONE 

*  +  -* 

5890 

REM 

5895 

GOTO 

5270 

5900 

REM 

5905 

REM 

»-»* 

IF  UPSENSOR  GOES  BELOW 

«-•»-» 

5910 

REM 

»-»•» 

THRESHOLD  RETURN  TO  START 

**♦ 

5915 

REM 

»** 

POSITION.  USE  FLASHING 

*** 

5920 

REM 

*** 

MESSAGE.  REZERO  COUNTER 

*•»* 

5925 

REM 

ft** 

(AB)  SINCE  SUN  LOSS  DUE 

*-•»•» 

5930 

REM 

ft** 

TO  CLOUD  COVER  IN  NORMAL 

*-** 

5935 

REM 

*** 

OCCURANCE. 

«--»* 

5940 

REM 

5945 

VTAB 

12: 

:  FLASH  : 

5950 
5955 
5960 
5965 
5970 
5975 
5980 
5985 


5990 
5995 
6000 
6005 
6010 
6015 
6020 
6025 

6030 
6035 


+  2 


PRINT  "SUN  INTENSITY  BELOW  THRESHOLD  VALUE": 

VTAB  13:  PRINT  "RETURNING  TO  START  UP  POSITION": 

NORMAL  :AB  =  O:  GOTO  1470 

REM 

REM  ***  IF  TRANSITION  FROM  EAST  TO*** 

REM  ***  WEST  WITHOUT  ACHIEVING     *** 

REM  ***  LOCKON,  RETURN  TO  STARTUP  *** 

REM  ***  POSITION,  BUT  DO  NOT  RESET*** 

REM  ***  COUNTER  (AB) .  *** 

REM 

VTAB  12:  FLASH  : 

PRINT  "REACHED  WEST  LIMIT  WITHOUT  FINDING": 

VTAB  13:  PRINT  "ACCEPTABLE  LOCK  ON  CRITERIA,  RESET' 

NORMAL  :  GOTO  1470 

REM 

REM  ***  IF  FAIL  TO  FIND  SUN  AFTER  *** 

REM  ***  TWO  EAST  TO  WEST  TRYS,     *** 

REM  ***  PRINT  ERROR  MESSAGE  AND    *** 

REM  ***  DETERMINE  IF  WANT  TO       *** 

REM  ***  CONTINUE  TRYING.  *** 

REM 

VTAB  16:  FLASH  : 

PRINT  "UNABLE  TO  LOCATE  SUN  LONGITUDE" 

VTAB  17:  PRINT  "AFTER  TWO  TRYS.  SUN  PROBABLY" 

VTAB  18:  PRINT  "SETTING  TOO  FAR  WEST":  NORMAL 
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6040   VTAB  20:  INPUT  "WANT  TO  TRY  AGAIN (Y/N) ?"; K* 

6045   IF  K*  =  "Y"  THEN  AB  =  0:  HOME  :  GOTO  1460 

6050   IF  K*  =  "N"  THEN   PRINT   CHR*  (4) ; "RUN  HELLO" 

6055   REM 

6060   REM  ***     BACKUP  STEP  SEQUENCE    *** 

6065   REM 

6070   REM  ***  RETURN  TO  POSITION  WHERE   *** 

6075   REM  ***  SUN  INTENSITY  FIRST  BEGAN  *** 

6080   REM  ***  TO  DROP  OFF  (G)  STEPS  AGO  *** 

6085   REM 

6090   POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,HI: 

POKE  L4,L0 
6095  GOSUB  6205 
6100   POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,L0 
6105  GOSUB  6205 
6110   POKE  LI, HI: 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,HI 
6115  GOSUB  6205 
6120   POKE  L1,L0: 

POKE  L2,L0: 

POKE  L3,L0: 

POKE  L4,HI 
6125  GOSUB  6205 
6130   POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,L0: 

POKE  L4,HI 
6135  GOSUB  6205 
6140   POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,L0: 

POKE  L4,L0 
6145  GOSUB  6205 
6150   POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,HI: 

POKE  L4,L0 
6155  GOSUB  6205 
6160   POKE  L1,L0: 

POKE  L2,L0: 

POKE  L3,HI: 

POKE  L4,L0 
6165  GOSUB  6205 
6170   GOTO  6090 
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6175 
6180 
6185 
6190 
6195 
6200 
6205 
6210 
6215 
6220 
6225 
6230 
6235 
6240 
6245 
6250 
6255 
6260 
6265 
6270 
6275 
6280 
6285 
6290 
6295 
6300 
6305 
6310 
6315 
6320 
6325 
6330 
6335 
6340 
6345 
6350 
6355 
6360 
6365 
6370 
6375 
6380 
6385 


6390 


6395 


REM 

REM  ***  SUBROUTINE  TO  DECRIMENT    *** 

REM  ***  <G>  COUNTER,  AND  DEGREES   *** 

REM  ***  HORIZONTAL  COUNT  AS        *** 

REM  ***  BACKUP.  *** 

REM 

IF  G  =  O  THEN  AC  =  O:  GOTO  6260 

G  =  G  -  1 

DH  =  DH  -  1 

RETURN  . 

REM 

REM  ***  THIS  PORTION  OF  THE  SUN    *♦* 

REM  ***  LOCATION  SECTION  GETS  AN   *** 

REM  ***  ELEVATION  LOCKON  PRIOR  TO  *** 

REM  ***  PASSING  CONTROL  TO  THE     *** 

REM  ***  TRACKING  SECTION.  *** 

REM 

DV  -  0 

REM 

REM  ***  IF  GO  THROUGH  ELEVATION    *** 

REM  ***  TRANSITION  TWICE  WITHOUT   *** 

REM  ***  ACHIEVING  LOCKON,  PRINT    *** 

REM  ***  ERROR  MESSAGE.  *** 

REM 

IF  AC  =  2  THEN   GOTO  5365 

AC  =  AC  +  1 

HOME 

VTAB  2:  PRINT  "NOW  LOCKING  ONTO  SUN'S  ELEVATION" 

REM 

REM  **♦  PRINT  LONGITUDE  VALUE      *** 

REM  ***  FOUND  IN  PREVIOUS  ROUTINE  *** 

REM  *♦*  WITH  ONE  DECIMAL  POINT     *** 

REM  ***  ACCURACY.  *** 

REM 

XI  =  DH  /  LD 

XI  =   INT  (XI  *  10  +  .5)  /  10 

VTAB  4:  PRINT  "SUN  LONGITUDE  ="X1 

VTAB  5:  PRINT  "EAST=0  DEG  S0UTH=90  DEG  WEST  =180  DEG" 

REM 

REM  ***  SET  MEMORY  LOCATIONS  FOR   *** 

REM  ***  DRIVE  ROUTINE.  *** 

REM 

LI  =  M  +  5: 

L2  =  M  +  6: 

L3  =  M  +  7: 

L4  =  M  +  8 

POKE  L1,L0: 

POKE  L2,L0: 

POKE  L3,HI: 

POKE  L4,L0 

REM 
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6400 

REM  *** 

GET  VALUES  OF  UPSENS0R(C3) 

**■» 

6405 

REM  *** 

DOWN  SENSOR  (C4) ,  AND 

*** 

6410 

REM  *** 

UP  LIMIT  SWITCH  (LU) 

*♦* 

6415 

REM 

6420 

C3  =   PEEK  (M  +  3) : 
C3  =   PEEK  <M  +  3) 

6425 

C4  =   PEEK  (M  +  4) : 
C4  =   PEEK  <M  +  4) 

6430 

LU  =   PEEK  (M  +  7) : 
LU  =   PEEK  (M  +  7) 

6435 

REM 

6440 

REM  *** 

IF  UPSENSOR  <C3)  BELOW 

«"** 

6445 

REM  *** 

SUNLIGHT  THRESHOLD,  OR  HIT*** 

6450 

REM  *** 

UPLIMIT  SWITCH,  EXIT  DRIVE*** 

6455 

REM  *** 

LOOP. 

*** 

6460 

REM 

6465 

IF  C3  < 

131  THEN   GOTO  6920 

6470 

IF  LU  > 

160  THEN   GOTO  6950 

6475 

REM 

6480 

REM  *** 

INCRIMENT  DEGREES  ELEVA- 

*•** 

6485 

REM  *** 

TION  COUNTER  (DV) 

■*** 

6490 

REM 

6495 

DV  =  DV 

+  1 

6500 

REM 

6505 

REM  *** 

STEP  TWO 

-*-*-» 

6510 

REM 

6515 

POKE  LI, 

LO: 

POKE  L2, 

hi: 

POKE  L3, 

Hi: 

POKE  L4, 

LO 

6520 

REM 

6525 

REM  *** 

IF  ACHIEVE  BALANCE  BETWEEN*** 

6530 

REM  *** 

UPPER  AND  LOWER  SENSOR  TO 

*** 

6535 

REM  *** 

WITHIN  ONE  UNIT,  GO  TO 

*** 

6540 

REM  *** 

SUN  TRACKING  ROUTINE. 

*** 

6545 

REM 

6550 

IF  C3  = 

C4  THEN   GOTO  8060 

6555 

IF  <C3  = 

=  C4  +  1)  OR  <C3  =  C4  -  1) 

THE 

6560 

DV  =  DV 

+  1 

6565 

REM 

6570 

REM  *** 

CALCULATE  DEGREES  ELEV. 

■*** 

6575 

REM  *** 

BY  DIVIDING  THE  COUNTER 

-*-»* 

6580 

REM  *** 

VALUE  (DV)  BY  STEPS  PER 

*** 

6585 

REM  *** 

DEGREE  ELEVATION  (LE) , 

*** 

6590 

REM  *** 

DETERMINED  IN  CALIBRATION 

-»-** 

6595 

REM  *** 

ROUTINE.  REPEAT  ABOVE 

*** 

6600 

REM  *** 

LOGIC  FOR  REMAINING  STEPS 

■*** 

6605 

REM 

6610 

X2  =  DV 

/  LE 

6615 

POKE  LI. 

,L0: 

POKE  L2. 

,HI: 

GOTO    8060 
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POKE  L3,L0: 

POKE  L4,L0 

6620 

C3  =   PEEK  (M  +  3)  : 
C3  =   PEEK  (M  +  3) 

6625 

C4  =   PEEK  (M  -»-  4)  : 
C4  =   PEEK  <M  +  4) 

6630 

LU  =   PEEK  (M  +  7) : 
LU  =   PEEK  <M  +  7) 

6635 

IF  C3  <  131  THEN   GOTO  6920 

6640 

IF  LU  >  160  THEN   GOTO  6950 

6645 

DV  =  DV  +  1 

6650 

POKE  L1,L0: 
POKE  L2,HI: 
POKE  L3,L0: 
POKE  L4,HI 

6655 

IF  C3  =  C4  THEN   GOTO  8060 

6660 

IF  (C3  =  C4  +  1)  OR  (C3  =  C4  -  1) 

THEN   GOTO  8060 

6665 

DV  =  DV  +  1 

6670 

X2  =   INT  <X2  *  10  +  -5)  /  10 

6675 

POKE  L1,L0: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,HI 

6680 

C3  =   PEEK  (M  +  3)  : 
C3  =   PEEK  (M  +  3) 

6685 

C4  =   PEEK  <M  +  4): 
C4  =   PEEK  (M  +  4) 

6690 

LU  =   PEEK  <M  +  7) : 
LU  =   PEEK  <M  +  7) 

6695 

IF  C3  <  131  THEN   GOTO  6920 

6700 

IF  LU  >  160  THEN   GOTO  6950 

6705 

DV  =  DV  +  1 

6710 

POKE  LI, Hi: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,HI 

6715 

IF  C3  =  C4  THEN   GOTO  8060 

6720 

IF  <C3  =  C4  +  1)  OR  <C3  =  C4  -  1 ) 

THEN   GOTO  8060 

6725 

DV  =  DV  +  1 

6730 

REM 

6735 

REM  ***  PRINT  DEGREES  ELEVATION 

JHHt 

6740 

REM  ***  ONLY  ONCE  PER  EIGHT  STEP 

*** 

6745 

REM  ***  LOOP  DUE  TO  SPEED 

-*-*•* 

6750 

REM  ***  CONSIDERATIONS. 

*** 

6755 

REM 

6760 

VTAB  7:  PRINT  "DEGREES  ELEVATION 

=  ,,X2"  DEG" 

6765 

POKE  LI, Hi: 

6770 


POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,L0 
C3  =   PEEK  <M 


+  3)  : 
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6775 

6780 

6785 
6790 
6795 
6800 


6805 
6810 
6815 
6820 
6825 
6830 
6835 
6840 
6845 
6850 
6855 
6860 

6865 

6870 
6875 
6880 
6885 
6890 
6895 
6900 
6905 
6910 
6915 
6920 


6925 
6930 
6935 
6940 
6945 
6950 


C3 

C4 

C4 

LU 

LU 

IF 

IF 

DV  = 

POKE 

POKE 

POKE 

POKE 

IF 

IF 


(M 

(M 

(M 

(M 

(M 
THEN 
THEN 


=  PEEK 
=  PEEK 
=  PEEK 
=  PEEK 
=  PEEK 
C3  <  131 
LU  >  160 
=  DV  +  1 

LI, hi: 

L2,L0: 

L3,HI: 

L4,L0 
C3  =  C4  THEN 
<C3  =  C4  +  1) 


3) 
4) 
4) 
7) 
7) 


GOTO 
GOTO 


6920 
6950 


GOTO  8060 

OR  <C3  =  C4  - 


1)  THEN   GOTO  8060 


DV 
6390 


+  1 


DV  = 

GOTO 

REM 

REM  *** 

REM  *** 

REM  *** 

REM  *** 

REM  *** 

REM 

VTAB  16:  FLASH  : 

PRINT  "UNABLE  TO  ACHIEVE  SENSOR  BALANCE  AFTER" 

VTAB  17: 

PRINT  "TWO  ATTEMPTS. 

VTAB  19:  INPUT  "WANT 


PRINT  ERROR  MESSAGE  IF 
HAVENT  ACHIEVED  LOCKON 
AFTER  TWO  ATTEMPTS,  AND 
DETERMINE  IF  WANT  TO 
CONTINUE. 


*** 


POSSIBLE  SYSTEM  PROBLEM" 
TO  TRY  AGAIN (Y/N)?";K* 


NORMAL 


■i  w  " 
"N" 


THEN 
THEN 


AC  =  O: 
PRINT 


HOME 
CHR* 


:  GOTO  1460 
<4>;"RUN  HELLO" 


IF  K*  = 
IF  K*  = 
REM 

REM  *-** 
REM  *** 
REM  *** 
REM  *** 
REM  *** 
REM 

VTAB  12:  FLASH  : 

PRINT  "SUN  INTENSITY  BELOW  THRESHOLD  VALUE": 
VTAB  13:  PRINT  "RETURNING  TO  START  UP  POSITION" 
NORMAL  :  GOTO  1470 


IF  SUN  GOES  BELOW  THRES-  *** 
HOLD  (BEHIND  A  CLOUD)  *** 
WHILE  ATTEMPTING  TO  LOCK  *** 
ON,  RETURN  TO  START  POSIT.*** 
AND  TRY  AGAIN.  *** 


o: 


AC  = 

REM 

REM  ***  IF  REACH  UPPER  LIMIT       *** 

REM  ***  SWITCH  AFTER  FIRST  TRY,    *** 

REM  ***  PRINT  THIS  MESSAGE.         *** 

REM 

VTAB  12:  FLASH  : 

PRINT  "HAVE  REACHED  UPPER  LIMIT  WITHOUT": 

VTAB  13:  PRINT  "ACHIEVING  SENSOR  BALANCE,  RE ZEROING": 

NORMAL  :  GOTO  1470 
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8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 


8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 

8340 

8350 

8360 

8370 

8380 

8390 


ONCE  ROUGH  LOCKON  IS  *** 
ACHIEVED  BY  THE  PREVIOUS  *** 
ROUTINE,  THIS  ROUTINE  FINE*** 
ADJUSTS  SENSOR  BALANCE  AND*** 
TRACKS  THE  SUN.  *** 

INIT.  OUT  OF  BALANCE  CTRS.*** 


REM 

REM  **************************************** 

REM  **         SUN  TRACKING  ROUTINE         ** 

REM  **************************************** 

REM 

REM 

HOME 

REM 

REM  *** 

REM  *** 

REM  *** 

REM  *** 

REM  *** 

REM 

REM  *** 

REM 

UN  =  o: 

DN  =  o: 

EN  =  o: 

WN  =  O 

REM 

REM  *** 

REM  *** 

REM  *** 

REM 

Q  =  5 

VTAB  2: 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

REM 

REM  *** 

REM  *** 

REM 

US 


COUNTER  USED  TO  DETERMINE 
IF  SENSOR  UNBALANCE  IS 
VALID  OR  TRANSITORY 


*** 
*** 
*** 


3: 
4: 
5: 
6: 
7: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"SUN  TRACKING 
"THIS  ROUTINE 
"STAYS  LOCKED 


ROUTINE" 

INSURES  THAT  THE  TRACKER" 
ONTO  THE  SUN.  IF  A  CLOUD" 
"COVERS  THE  SUN,  CONTROL  IS  PASSED  TO" 
"THE  CLOUD  COVER  WAIT  ROUTINE  UNTIL" 
"THE  SUN  REAPPEARS" 


GET 
AND 


VALUES  OF  ALL  SENSORS  *** 
LIMIT  SWITCHES.         *** 


US 
DS 
DS 
ES 
ES 
WS 
WS 
UL 
UL 
DL 
DL 
EL 
EL 


PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 
PEEK 


<M 
(M 
(M 
<M 
(M 
(M 
(M 
<M 
<M 
(M 
<M 
(M 
(M 
(M 


3) 
3) 
4) 
4) 
1) 
1) 
2) 
2) 
7) 
7) 
8) 
8) 
5) 
5) 
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8400 

WL    =       PEEK     <M    +    6)  : 
WL    =       PEEK     (M    +    6) 

8410 

REM 

8420 

REM    *** 

IF    UUPSENSOR    GOES    BELOW         *** 

8430 

REM    *** 

THRESHOLD    GO    TO    CLOUD               *** 

8440 

REM    *** 

WAIT    ROUTINE.     IF    HIT    LIMIT*** 

8450 

REM    *** 

SWITCH,     GO    TO    APPROPRIATE    *** 

8460 

REM    *** 

NOTIFICATION    MESSAGE                   *** 

8470 

REM 

8480 

IF    US    < 

131    THEN       GOTO    11090 

8490 

IF    UL    > 

160    THEN       GOTO    9220 

8500 

IF    DL    > 

160    THEN       GOTO    9270 

8510 

IF    EL    > 

160    THEN       GOTO    9320 

8520 

IF    WL    > 

160    THEN       GOTO    9370 

8530 

REM 

8540 

REM    *** 

IF    UPPER/LOWER    OR    EAST/          *** 

8550 

REM    *** 

WEST    SENSORS    ARE    IN                     *** 

8560 

REM    *** 

BALANCE,     ZERO    APPROPRIATE    *** 

8570 

REM    *** 

UNBALANCE    COUNTER.                         *** 

8580 

REM 

8590 

IF    US    = 

DS    THEN    UN    =    0:DN    =    0 

8600 

IF    ES    = 

WS    THEN    EN    =    0:WN    =    0 

8610 

REM 

8620 

REM    *** 

IF    SENSOR    PAIRS    ARE    OUT    OF*** 

8630 

REM    *** 

BALANCE    INCRIMENT    PROPER       *** 

8640 

REM    *** 

UNLBALANCE    COUNTER.                      *** 

8650 

REM 

8660 

IF    US    > 

DS    THEN    UN    =    UN    +    1 

8670 

IF    DS    > 

US    THEN    DN    =    DN    +    1 

8680 

IF    ES    > 

WS    THEN    EN    =    EN    +    1 

8690 

IF    WS    > 

ES    THEN    WN    =    WN    +    1 

8700 

REM 

8710 

REM    *** 

SYSTEM    OPERATION    OUTPUTS       *** 

8720 

REM 

8730 

VTAB    17: 

:     PRINT    "UN="UN"    DN=,,DN"    EN="EN" 

WN="WN" 

L5="L5" 

ll 

8740 

VTAB    18: 

!     PRINT    "SU="SU"    SD="SD"    SE="SE" 

SW="SW 

8750 

REM 

8760 

REM    *** 

CHECK    SENSOR    OUT    OF                     *** 

8770 

REM    *** 

BALANCE    COUNTERS    AND    GO    TO*** 

8780 

REM    *** 

APPROPRIATE    DRIVE    ROUTINE    *** 

8790 

REM    *** 

IF    COUNTER    IS    ABOVE                     *** 

8800 

REM    *** 

THRESHOLD    VALUE     (G)                      *** 

8810 

REM 

8820 

IF    UN    > 

=    Q   THEN   Ll    =    M    +    5: 

L2   =    M   +    6: 

L3    =    M    +    7: 

L4    =    M    +    8: 

L5  =    l: 

GOTO    9480 

8830 

IF    DN    > 

=    Q    THEN    Ll    =    M    +    5: 
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8850 


8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 
8990 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 


L2  = 

L3  = 
L4  = 
L5  = 


M  +  6: 

M  +  7: 

M  +  8: 
l: 


GOTO  10380 


8840   IF  EN  > 


Q  THEN  LI  =  M  +  l: 


L2 
L3 
L4 
L5 


M 
M 
M 
2: 


2: 
3: 
4: 


GOTO  10380 
IF  WN  > 
L2  =  M  - 
L3 


=  Q  THEN  LI  = 
2: 


M 


L4 
L5 


M 
M 
2: 


3: 
4: 


PRINT   TAB(  15) "US="US 
PRINT   TAB(  12) "WS="WS"  ES="ES 
PRINT   TAB<  15)"DS="DS 


*** 


*** 


GOTO  9480 

REM 

REM  ***  PUT  SENSOR  VALUES  ON       *** 

REM  ***  SCREEN  *** 

REM 

VTAB  9: 

VTAB  10: 

VTAB  11: 

REM 

REM  ***  CONTINUE  LOOP 

REM 

GOTO  8330 

REM 

REM  ***  PRINT  DEGREES  LONGITUDE 

REM  ***  AND  ELEVATION  VALUES  WHEN  *** 

REM  ***  RETURN  FROM  DRIVE  ROUTINES*** 

REM  ***  ONLY,  SO  LOGIC  LOOP  IS  NOT*** 

REM  ***  SLOWED  DOWN  BY  UNNECESSARY*** 

REM  ***  PRINT  STATEMENTS.  *** 

REM 

XI  =  DH  /  LD 

XI  =   INT  (XI  *  10  +  .5)  /  10 

VTAB  14:  PRINT  "DEGREES  LONGITUDE  ="X1"  DE6" 

X2  =  DV  /  LE 

X2  =   INT  <X2  *  10  +  .5)  /  10 

VTAB  15:  PRINT  "DEGREES  ELEVATION  ="X2"  DEG" 

REM 

REM  ***  RETURN  TO  LOGIC  LOOP  AFTER*** 

REM  ***  PRINT  OUT.  *** 

REM 

GOTO  8330 

REM 

REM  ***  LIMIT  SWITCH  DEPRESSION    *** 

REM  ***  MESSAGES  PRINTED  WHEN  HIT  *** 

REM  ***  LIMIT  SWITCH  WHILE  IN      *** 
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9200  REM  ***  TRACKING  MODE.  *** 

9210  REM 

9220  VTAB  17:  FLASH  :  PRINT  "HAVE  REACHED  UPPER  LIMIT, 

CHECK  SYSYTEM" 

9230  VTAB  18:  PRINT  "ALLIGNMENT  TO  TRUE  EAST":  NORMAL 

9240  VTAB  19:  INPUT  "WANT  TO  RERUN (Y/N) ?"; K* 

9250  IF  K*  =  "Y"  THEN   HOME  :  GOTO  1460 

9260  IF  K*  =  "N"  THEN   PRINT   CHR*  (4) ; "RUN  HELLO" 

9270  VTAB  17:  FLASH  :  PRINT  "HAVE  REACHED  DOWN  LIMIT,  MOST 

PROBABLE" 

9280  VTAB  18:  PRINT  "SUNSET  OR  MISALLIGNMENT" :  NORMAL 

9290  VTAB  19:  INPUT  "WANT  TO  RERUN  (Y/N>?";K* 

9300  IF  K*  =  "Y"  THEN   HOME  :  GOTO  1460 

9310  IF  K*  =  "N"  THEN   PRINT   CHR*  (4) ; "RUN  HELLO" 

9320  VTAB  17:  FLASH  :  PRINT  "HAVE  REACHED  EAST  LIMIT,  MOST 

PROBABLE" 

9330  VTAB  18:  PRINT  "CAUSE  EARLY  MORNING,  SUN  TOO  LOW": 

NORMAL 

9340  VTAB  19:  INPUT  "WANT  TO  RERUN  <Y/N)?";K* 

9350  IF  K*  =  "Y"  THEN   HOME  :  GOTO  1460 

9360  IF  K*  =  "N"  THEN   PRINT   CHR*  (4) ; "RUN  HELLO" 

9370  VTAB  17:  FLASH  :  PRINT  "HAVE  REACHED  WEST  LIMIT,  MOST 

PROBABLE" 

9380  VTAB  18:  PRINT  "CAUSE,  NEAR  SUNSET":  NORMAL 

9390  VTAB  19:  INPUT  "RERUN  OR  GO  TO  SLEEP  <R/S>?" ; K* 

9400  IF  K*  =  "R"  THEN   HOME  :  GOTO  1460 

9410  IF  K*  =  "S"  THEN   HOME  :  VTAB  10: 

PRINT  "THANKYOU  I'M  REALLY  TIRED":  GOTO  1460 

9420  REM 

9430  REM  ***    UP/WEST  DRIVE  ROUTINES   *** 

9440  REM 

9450  REM 

9460  REM  ***  STEPS  PER  DRIVE  ACCESS     *** 

9470  REM 

9480  CT  =  2 

9490  REM 

9500  REM  ***  GO  TO  DRIVE  STEP  ENTRY     *** 

9510  REM  ***  LOGIC  STATEMENT  AS  DETER-  *** 

9520  REM  ***  MINED  BY  (L5)  *** 

9530  REM 

9540  IF  L5  =  1  THEN   GOTO  9620 

9550  IF  L5  =  2  THEN   GOTO  9630 

9560  REM 

9570  REM  ***  DETERMINE  PROPER  STEP  TO   *** 

9580  REM  ***  REENTER  DRIVE  ROUTINE  TO   *** 

9590  REM  ***  PREVENT  JERKY  SEEKER       **-* 

9600  REM  ***  MOTION  WHILE  TRACKING      *** 

9610  REM 
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9620 
9630 
9640 


9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 

9740 
9750 
9760 
9770 
9780 
9790 
9800 
9810 

9820 
9830 
9840 
9850 
9860 
9870 
9880 
9890 
9900 
9910 
9920 
9930 
9940 
9950 


ON  SU  GOTO  9640,9950,10000,10050, 

10100, 10150, 10200, 10250 
ON  SW  GOTO  9640,9950,10000,10050, 

10100, 10150, 10200, 10250 
POKE  L1,L0: 
POKE  L2,L0: 
POKE  L3,HI: 
POKE  L4,L0 
REM 

REM  ***  SET  REENTRY  STEP  FOR  THIS  *** 
REM  ***  AND  CORRESPONDING  DRIVE  *** 
REM  ***  LOOP  IN  OPPOSITE  DIRECTION*** 
REM  ***  SINCE  A  STEP  HERE  CHANGES  *** 
REM  ***  THE  REENTRY  POINT  IN  OTHER*** 
REM  ***  DRIVE  LOOP.  *** 

REM 

1  THEN  SU  =  2: 

+  l:UN  =  0:SD  = 


1 


IF  L5  = 
DV  =  DV 
REM 

REM  ***  BESIDES  DETERMINING  *** 
REM  ***  REENTRY  POINT,  CHANGE  *** 
REM  ***  DEGREE  COUNTERS  (DV) , <DH)  *** 
REM  ***  AND  ZERO  UNBALANCE  COUNTER*** 
(UN)  ,  (WN) 


2  THEN  SW  =  2: 
+  l:WN  =  0:SE  = 


REM  *** 

REM 

IF  L5  = 

DH  =  DH 

REM 

REM  ***  AFTER  CORRECT  NUMBER  OF    *** 

REM  ***  STEPS  PER  DRIVER  ACCESS    *** 

REM  ***  RETURN  TO  LOGIC  SECTION    *** 

REM 

IF  CT  =  O  THEN   GOTO  9050 

REM 

REM  ***  DECRIMENT  STEPS  PER  ACCESS*** 

REM  ***  COUNTER.  CONTINUE  ABOVE    *** 

REM  ***  LOGIC  SEQUENCE  FOR  EIGHT   *** 

REM  ***  STEP  LOOP.  *** 

REM 

CT  =  CT  -  1 

POKE  L1,L0: 

POKE  L2,HI: 

POKE  L3,HI: 

POKE  L4,L0 


9960 

IF  L5  =  1  THEN 

SU  =  3: 

DV  =  DV  +  l:UN 

=  0:SD  =  8 

9970 

IF  L5  =  2  THEN 

sw  =  3: 

DH  =  DH  +  l:WN 

=  0:SE  =  8 

9980 

IF  CT  =  0  THEN 

GOTO  9050 

9990 

CT  =  CT  -  1 

10000 

POKE  L1,L0: 
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POKE  L2,HI: 

POKE  L3,L0: 

POKE  L4,L0 

10010 

IF  L5  =  1  THEN 

SU  =  4: 

DV  =  DV  +  1:UN 

=  o:SD  = 

7 

10020 

IF  L5  =  2  THEN 

sw  =  4: 

DH  =  DH  +  l:WN 

=  0:SE  = 

7 

10030 

IF  CT  =  0  THEN 

GOTO  9050 

10040 

CT  =  CT  -  1 

10050 

POKE  L1,L0: 
POKE  L2,HI: 
POKE  L3,L0: 
POKE  L4,HI 

10060 

IF  L5  =  1  THEN 

su  =  5: 

DV  =  DV  +  l:UN 

=  o:SD  = 

6 

10070 

IF  L5  =  2  THEN 

sw  =  5: 

DH  =  DH  +  l:WN 

=  0:SE  = 

6 

10080 

IF  CT  =  0  THEN 

GOTO  9050 

10090 

CT  =  CT  -  1 

10100 

POKE  L1,L0: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,HI 

10110 

IF  L5  =  1  THEN 

SU  =  6: 

DV  =  DV  +  l:UN 

=  0:SD  = 

5 

10120 

IF  L5  =  2  THEN 

sw  =  6: 

DH  =  DH  +  l:WN 

=  o:SE  = 

5 

10130 

IF  CT  =  0  THEN 

GOTO  9050 

10140 

CT  =  CT  -  1 

10150 

POKE  LI, HI: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,HI 

10160 

IF  L5  =  1  THEN 

su  =  7: 

DV  =  DV  +  l:UN 

=  o:SD  = 

4 

10170 

IF  L5  =  2  THEN 

sw  =  7: 

DH  =  DH  +  l:WN 

=  o:se  = 

4 

10180 

IF  CT  =  0  THEN 

GOTO  9050 

10190 

CT  =  CT  -  1 

10200 

POKE  LI, HI: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,L0 

10210 

IF  L5  =  1  THEN 

su  =  8: 

DV  =  DV  +  l:UN 

=  0:SD  = 

3 

10220 

IF  L5  =  2  THEN 

sw  =  8: 

DH  =  DH  +  1:WN 

=  o:SE  = 

3 

10230 

IF  CT  =  0  THEN 

GOTO  9050 

10240 

CT  =  CT  -  1 

10250 

POKE  LI, HI: 
POKE  L2,L0: 

97 


10260 

10270 

10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 

10420 

10430 


POKE  L3,HI: 

POKE  L4,L0 

IF  L5  =  1  THEN 

SU  =  l: 

DV  =  DV  +  l:UN 

=  0:SD  =  2 

IF  L5  =  2  THEN 

SW  -  l: 

DH  =  DH  +  l:WN 

=  o:se  =  2 

IF  CT  =  0  THEN 

GOTO  9050 

CT  =  CT  -  1 

GOTO  9640 
REM 

REM  ***  DOWN/EAST  DRIVE  ROUTINES   *** 
REM 
REM 

REM  ***  LOGIC  SAME  AS  FOR  UP/ WEST  *** 
REM  ***  DRIVE  ROUTINES  *** 

REM 
CT  =  2 
IF  L5  =  1  THEN   GOTO  10410 
IF  L5  =  2  THEN   GOTO  10420 
ON  SD  GOTO  10430,10480,10530,10580, 

10630, 10680, 10730, 10780 
ON  SE  GOTO  10430,10480,10530,10580, 

10630, 10680, 10730, 10780 
POKE  LI, HI: 
POKE  L2,L0: 
POKE  L3,HI: 
POKE  L4,L0 


10440 

IF  L5  =  1  THEN 

SD  =  2: 

DV  =  DV  -  l:DN 

=  0:su  = 

1 

10450 

IF  L5  =  2  THEN 

SE  =  2: 

DH  =  DH  -  l:EN 

=  o:sw  = 

1 

10460 

IF  CT  =  0  THEN 

GOTO  9050 

10470 

CT  =  CT  -  1 

10480 

POKE  LI, HI: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,L0 

10490 

IF  L5  =  1  THEN 

SD  =  3: 

DV  =  DV  -  l:DN 

=  0:SU  = 

8 

10500 

IF  L5  =  2  THEN 

SE  =  3: 

DH  =  DH  -  l:EN 

=  0:sw  = 

8 

10510 

IF  CT  =  0  THEN 

GOTO  9050 

10520 

CT  =  CT  -  1 

10530 

POKE  LI, HI: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,HI 

1 054O 

IF  L5  =  1  THEN 

SD  =  4: 

DV  =  DV  -  l:DN 

=  0:su  = 

7 

10550 

IF  L5  =  2  THEN 

SE  =  4: 

DH  =  DH  -  l:EN 

=  o:sw  = 

7 
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10560 

IF  CT  =  0  THEN 

GOTO  9050 

10570 

CT  =  CT  -  1 

10580 

POKE  L1,L0: 
POKE  L2,L0: 
POKE  L3,L0: 
POKE  L4,HI 

10590 

IF  L5  =  1  THEN 

SD  =  5: 

DV  =  DV  -  l:DN 

=  o:su  =  6 

10600 

IF  L5  =  2  THEN 

SE  =  5: 

DH  =  DH  -  l:EN 

=  0:SW  =  6 

10610 

IF  CT  =  0  THEN 

GOTO  9050 

10620 

CT  =  CT  -  1 

10630 

POKE  L1,L0: 
POKE  L2,HI: 
POKE  L3,L0: 
POKE  L4,HI 

10640 

IF  L5  =  1  THEN 

SD  =  6: 

DV  =  DV  -  l:DN 

=  o:su  =  5 

10650 

IF  L5  =  2  THEN 

SE  =  6: 

DH  =  DH  -  l:EN 

=  o:SW  =  5 

10660 

IF  CT  =  0  THEN 

GOTO  9050 

10670 

CT  =  CT  -  1 

10680 

POKE  L1,L0: 
POKE  L2,HI: 
POKE  L3,L0: 
POKE  L4,L0 

10690 

IF  L5  =  1  THEN 

SD  =  7: 

DV  =  DV  -  l:DN 

=  o:su  =4 

1070O 

IF  L5  =  2  THEN 

SE  =  7: 

DH  =  DH  -  l:EN 

=  o:sw  =  4 

10710 

IF  CT  =  0  THEN 

GOTO  9050 

10720 

CT  =  CT  -  1 

10730 

POKE  L1,L0: 
POKE  L2,HI: 
POKE  L3,HI: 
POKE  L4,L0 

10740 

IF  L5  =  1  THEN 

SD  =  8: 

DV  =  DV  -  l:DN 

=  o:su  =  3 

10750 

IF  L5  =  2  THEN 

SE  =  8: 

DH  =  DH  -  l:EN 

=  o:sw  =  3 

10760 

IF  CT  =  0  THEN 

GOTO  9050 

10770 

CT  =  CT  -  1 

10780 

POKE  L1,L0: 
POKE  L2,L0: 
POKE  L3,HI: 
POKE  L4,L0 

10790 

IF  L5  =  1  THEN 

SD  =  l: 

DV  =  DV  -  l:DN 

=  0:SU  =  2 

10800 

IF  L5  =  2  THEN 

SE  =  l: 

DH  =  DH  -  l:EN 

=  o:sw  =  2 

10810 

IF  CT  =  0  THEN 

GOTO  9050 
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10820 
10830 
1 1 000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11170 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 

11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 


CT  =  CT  -  1 

GOTO  10430 

REM 

REM 

REM  ***♦************************♦****-***-**** 

REM  **  CLOUD  COVER  ROUTINE         ** 

REM 

REM  ***  CLEAR  SCREEN  AND  INITIAL-  *** 

REM  ***  IZE  LOOP  COUNTERS  FOR      *** 

REM  ***  TIME  LOOPS.  *** 

REM 

HOME 

XX  =  0:ZZ  =  0 

VTAB  8:  PRINT 

VTAB  10: 

VTAB  11: 

VTAB  12: 

VTAB  13: 

VTAB  14: 

VTAB  15: 

VTAB  16: 


TAB(  5) "CLOUD  COVER  ROUTINE" 
PRINT  "THIS  ROUTINE  CHECKS  THE  UPPER  SENSOR' 
PRINT  "WAITING  FOR  THE  SUN  TO  COME  BACK  OUT' 
PRINT  "IF  THE  SUN  HAS  NOT  COME  BACK  OUT  FOR' 
PRINT  "APPROXIMATELY  10  MINUTES  THE  SYSTEM" 
PRINT  "WILL  AUTOMATICALLY  REZERO  ITSELF  AND' 
PRINT  "WAIT  FOR  THE  SUNS  INTENSITY  TO  AGAIN' 
PRINT  "GO  ABOVE  THE  THRESHOLD  VALUE" 

REM 

REM  ***  LOOPS  TO  ADJUST  DELAY      *** 

REM  ***  TIMES  FOR  ONE  SECOND  CLOCK*** 

REM 

FOR  XX  = 


ZZ  = 


1  TO  605 
1  TO  17 


*** 


FOR 

REM 

REM  ***  CHECK  UPPER  SENSOR,  AND 

REM  ***  DISPLAY  SENSOR  AND  TIME 

REM  ***  DATA  ON  SCREEN. 

REM 

US  =   PEEK  (M  +  3) : 

US  =   PEEK  (M  +  3) 

VTAB  19:  PRINT  "UPPER  SENSOR="US 

VTAB  20:  PRINT  "DELAY  TIME  COUNTER="XX"  SEC" 

REM 

REM  ***  IF  SUN  COMES  BACK  OUT  OR 

REM  ***  REACH  10  MINUTE  TIME  OUT 

REM  ***  EXIT  CLOUD  COVER  ROUTINE 

REM 

IF  US  >   =131  THEN   GOTO  8060 

IF  XX  >   =  600  THEN   GOTO  1460 

NEXT  ZZ 

NEXT  XX 
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